Jose Carlos Ferreira

FRANK DESCOBRI O PORQUE NÃO FUNCIONAVA DIREITO, QUANDO EU MOVIA SEMPRE PRA UMA NOVA PLANILHA E ISSO OCASIONAVA A INCOSCISTENCIA DO NUMERO DO GRAFICO NA HORA DE CHAMAR. MAS TE AGRADEÇO PELA AJUDA. ABRAÇO.

Boa tarde Frank. Faz o seguinte teste. crie uma planilha de dados e gere 4 gráficos como você fez mova os seus gráficos para a planiha gráficos crie uma planilha e coloque 4 botoes que cada um vai chamar um grafico nessa planilha crie o objetro image que a cada click no botão vai mostrar o grafico do botão correspondente e vamos ver se funciona. vou te passar o codigo para você colocar no botão que vai mostrar o grafico; coloque no seu botão1 esse codigo e nos outros mude somente o nome do grafico . 'On Error GoTo erro 'On Error Resume Next Dim pastanome As String Dim plan As String Planilha4.Activate ' ativa a planilha de nome gráficos a sua planilha pode ser outra planilha plan = Planilha4.Name ' pega o nome da planilha4 que é "gráficos" Me.Repaint Set nomecharts = Sheets(plan).ChartObjects("Gráfico 1").Chart ' pega a planilha e o grafico correspondente nesse caso janeiro grafico 1 pastanome = ThisWorkbook.Path & Application.PathSeparator & "grafico.gif" ' pega na pasta(caminho) o grafico 1 como grafico.gif nomecharts.Export Filename:=pastanome, filtername:="GIF" ' exporta o grafico.gif Image1.Picture = LoadPicture("E:\Controle Glicose\grafico.gif") ' coloca o grafico exportado na image1 no end selecionado Planilha4.Activate Me.Repaint Exit Sub erro: MsgBox "ERROR", vbCritical, "ERROR" copie essa mesma rotina para os outros botoes mudando o nome do grafico no set e troque o os nomes da planilha4 pela a da sua planilha. o nome do grafico e criado automaticamente quando movemos para outra planilha seleciona o grafico e aparece o nome. vamos ver se funciona, pra mim tem hora que funciona tem hora que mostra outro grafico. mas desde já´ te agradeço pela cooperação e ajuda; No seu exemplo você gera o grafico no mesmo lugar dos dados, no meu eu gero no mesmo lugar , mas movo eles para a planilha grafico e acesso essa planilha para mostrar o grafico no image1.

Frank, funcionou a criação do grafico, mas quando levo pra planilha de gráficos e chamo para mostrar o grafico ele não funciona. O problema e ue ele se perde quando direciono para a planilha de grafico e chamo o gafico correspondente. ele mostra outro grafico. ex. chamo para mostrar o grafico de janeiro(grafico1) e ele mostra o de março(grafico3). E uma coisa intermitente, tem hora que funciona e tem hora que não. Não sei porque. Mas mesmo assim OBRIGADO>

Obrigado, vou tentar, pois já fiz de tudo e não adiantou, depois mando se resolveu.

Boa noite, Estou com o seguinte problema, tengo um planilha só de gráficos e para chamar os gráficos. Tenho um form e nele contem 12 optiumButton quer cada uma representa um mês. Tenho um Botão “MOSTRAR” para mostrar o gráfico do mês correspondente Tenho um image1 para mostrar o gráfico do mês escolhido. No botão MOSTRA o seguinte código que chama o mês correspondente. If OptionButton3 = True Then ' janeiro strNomeArquivo = "E:\Controle Glicose\grafico3.gif" strArquivoExiste = Dir(strNomeArquivo) If strArquivoExiste = "" Then Else Kill "E:\Controle Glicose\grafico3.gif" End If Call carrega_grmar End If Na rotina Carrega_grmar o código On Error GoTo erro Planilha4.Activate ‘ planilha que se chama “ gráficos” Dim pastanome As String Plan = Planilha4.Name ‘ tem o nome da planilha “gráficos” Set currentchart = Sheets(Plan).ChartObjects(3).Chart ‘ para pegar o gráfico de março pastanome = ThisWorkbook.Path & Application.PathSeparator & "grafico3.gif" Currentchart.Export Filename:=pastanome, filtername:="gif" Image1.Picture = LoadPicture(pastanome) Planilha4.Activate Exit Sub erro: MsgBox "ERROR", vbCritical, "ERROR" O problema é que tem vez que funciona e tem fez que não, ele se perde no índice do gráfico e mostra outro mês. Cada gráfico esta com seu mes, eu selecionei o gráfico e fui colocando o numero do mês que corresponde. Selecionei o gráfico de janeiro e coloquei o nome de grafico1 de janeiro, grafico2 de fevereiro e assim sucessivamente nos 12 gráficos. Nessa rotina acima ele mostra o gráfico de Fevereiro e n]ao o de março, e tem vez que não encontra o gráfico na planilha e da o erro de inexistência do gráfico. alguém tem a ideia o porque isso acontece? Alguém pode me ajudar. Utilizo o Office 365 original com w11 original atualizado. Desde já agradeço.

Bom dia . Estou precisando de uma nova ajuda e de ante mão agradeço. Meu problema e no codigo vba para classificar uma planilha onde eu sei a linha inicial e a coluna final esta fixa, e como pode haver inclusão de novos linhas se eu deixar fixo a coluna toda hora vou ter que entrar no codigo para alterar. Abaixo o exemplo do codigo. Range("A2:H100").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Como podem ver a seleção da coluna é H100 hoje, amanha depois de nova inclusão pode ser H120 e assim por diante, como faço para definir automaticamente a linha da coluna final sem ter que ficar mudando manualmente. Grato e obrigado..

Obrigado Alyson ajudou bastante.

Patropi esta ai a planilha, o que quero é que quando incluir o cpf na planilha registro de armas , apareca o nome ao lado e continuo a preencher os campos até apertar o botao incluir.] Sera que tem como. https://www.sendspace.com/file/91j5me

Boa noite; De antemão quero agradecer a todos que se dispõe a me ajudar no meu problema. Tenho uma planilha que contem as seguintes pastas: Socio e Registro Cada pasta tem um form independente que pode alterar, incluir e buscar dados, o que não consigo é: Quando digitar o CPF na planilha Registro ele vá ate a planilha SOCIO que já esta preenchida, pesquise pelo cpf que foi digitdo na planilha Registro, quando encontrar pegue o NOME que esta na planilha SOCIO emostre na textBoxnome do form do Registro automaticamente e eu continuar a preencher os outros campos do form que esta aberto da planilha Registro. Se alguém tiver alguma idéa agradeço, pois já tentei algumas formas que achei na internet, mas nada funcionou.

Boa tarde; Estou com o seguinte problema e gostaria saber se tem solução.. Estou querendo usar o PROCV, mas da seguinte maneira: Fiz a planilha com codigo e descrição, no form criei uma combobox para o código e um textbox para a descrição, o que preciso é que quando execufo o form e escolho o código na combobox a descrição referente ao código aparecesse automaticamente ao lado. Estou enviando os formulario e planilha para visualização. obrigado