antonioneto7

Muito obrigado, Wendell. Ainda não comecei a fazer a planilha, só queria ter certeza que funcionaria. Em alguns dias devo terminá-la, daí coloco aqui. Ok? Valeu mesmo!

Wendell, fiz uma planilha só pra esclarecer mais... Na planilha a gente tem pra selecionar em uma lista dropdown os projetos A, B e C. Daí, (1) o que eu gostaria de fazer era que, ao selecionar um determinado projeto, só aparecesse as abas referentes a ele (PROJETO A1, A2 refere-se as abas do projeto A e assim por diante). (2) E que, ao iniciar, o programa aparecesse somente a aba "PAINEL". Valeu!

Boa tarde, pessoal Estou com um problema que não sei como resolver. O problema é o seguinte: Tenho algumas planilhas que possuem as mesmas abas. Por exemplo, a 'Planilha A' tem as Abas '1', '2' e '3', a Planilha B, tem as mesmas abas '1', '2' e '3', assim como a Planilha C, sendo que o conteúdo em cada uma dessas abas são diferentes entre si e entre planilhas. Gostaria de colocar essas 3 planilhas em uma planilha só, porém, escolhendo em um menu dropdown ou por botões qual planilha quero acessar. Para ficar mais claro: quero acessar a planilha A, clico em um botão (ou seleciono no menu dropdown) e vai me aparecer apenas o conteúdo da planilha A. Como faço isso? Agradeço desde já,

Osvaldo, ainda no mesmo problema, o de alterar o valor de um dado em uma célula e ele fazer a conta pra dar o resultado. Gostaria de saber se é possível alterar a planilha na qual o valor é alterado. Deixe-me explicar melhor: - Atualmente o código que você fez qualquer alteração feita na coluna "H" na linha que tenha "Real." realiza uma operação de subtração deste valor de H e joga na próxima linha vazia no range Y:AJ. - O que eu gostaria agora era que essa "coluna H" fosse em outra planilha, mas que a operação fosse realizada na mesma planilha (a que é feita atualmente), seria algo =MENU!H5-SOMA(Y5:AB5) ao invés de =H5-Soma(Y5:AB5). Deu pra entender?

Bom dia, Tenho o seguinte código para exportar uma range no excel para imagem .GIF. E agora estou criando uma planilha onde ficará um "MENU", para imprimir todas as páginas que preciso, porém algumas páginas tem tamanho variável, logo não posso escolher um range específico, devo fazer uma seleção. Este comando está no código (Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap). Contudo, gostaria de adicionar um comando para uma MsgBox que diz que o usuário precisa fazer a seleção do que quer imprimir e ao clicar OK, leva o usuário até a página que ele precisa fazer a seleção. Como posso fazer isso? Qual o comando? Sub ExportarAreaParaGif() Dim tmpSheet As Worksheet Dim tmpChart As Chart Dim tmpImg As Object Dim fGIF As String Dim margem As Integer On Error GoTo erro 'Seleciona a área (fixa) que deseja gerar uma imagem 'Range("V36", "AO88").CopyPicture Appearance:=xlScreen, Format:=xlBitmap ' 'Se quiser fazer gerar uma imagem à partir de uma seleção (remover ' da linha abaixo) Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 'Impede que se veja a ação acelerando o procedimento de cópia e exportação Application.ScreenUpdating = False 'Uma folha para colocarmos o grafico sem atrapalhar o resto Set tmpSheet = Worksheets.Add 'Colocar um grafico nesta nova folha Charts.Add 'Definições essenciais ao grafico, para que fique numa worksheet e não numa folha grafico ActiveChart.Location Where:=xlLocationAsObject, Name:=tmpSheet.Name 'Colar a zona copiada para dentro da area do grafico Set tmpChart = ActiveChart With tmpChart .Paste Set tmpImg = Selection With .ChartArea .Border.LineStyle = xlNone End With 'Configurar a area do grafico acrescentando uma pequena borda ao redor da imagem centrando esta margem = 8 With .Parent 'Define o tamanho da imagem em Height (altura) e em Width (largura) .Height = 948 + margem .Width = 1450 + margem End With End With 'Localização e nome do ficheiro de imagem fGIF = ThisWorkbook.Path & _ "\imagem_" & Format(Now, "mm_yyyymmdd_hhmmss") & ".gif" 'Exportar grafico tmpChart.Export Filename:=fGIF, FilterName:="gif" 'Eliminar a folha temporaria sem avisos Application.DisplayAlerts = False tmpSheet.Delete Application.DisplayAlerts = True 'Repor o estado normal Application.ScreenUpdating = True 'Aviso de operação terminada MsgBox "Imagem exportada para o ficheiro:" & fGIF, _ vbInformation, _ "Exportar para GIF" GoTo fimerro: MsgBox "Erro: " & Err.Description, _ vbCritical, _ "Erro: " & Err.Numberfim: Set tmpSheet = Nothing Set tmpChart = Nothing Set tmpImg = NothingEnd Sub Obrigado

Olá, Osvaldo Muito obrigado pela resposta, mas não deu certo não. Vou te mandar a planilha e talvez fique mais fácil pra você ver... A ideia (funcionamento) do seu código está correta, porém por alguma razão não funcionou aqui... Além do cálculo baseado em H (Avanço físico) existe um outro baseado na coluna J (avanço financeiro), sendo que o de cálculo do avanço físico tem um range Y:AJ enquanto que o avanço financeiro tem um range AK:AV. Ignorar a última parte "IP Ponderado" Espero que fique mais claro e que você possa me ajudar PLANILHA TESTE PROJ.xlsx

Galera, To com um probleminha já tentei resolver de várias formas, menos por VBA pois não tenho muito conhecimento, até tenho, mas não suficiente. (talvez a solução esteja aí). O problema é o seguinte, eu tenho uma tabela na qual atualizo dezenas de valores, estes estão separados por meses e são baseados no valor de uma única célula que é atualizada todos os meses. Para deixar mais claro ver imagem em anexo. Gostaria que o valor das células AB5, AC5, AD5... até DEZ (e as respectivas para os outros projetos) fossem preenchidas automaticamente. O valor delas é formado da seguinte maneira: H5-(soma de todos os meses anteriores). Porém, o grande problema é que, a cada vez que eu atualizar o valor de H5, o resultado não passa para o mês seguinte, ele fica sempre no mês que foi colocado a fórmula. PS.: os valores até MAR foram colocados à mão, já os valores de abril é dado por uma fórmula (de novo, que não se “perpetua” para os meses seguintes). E existem muito mais células do que isso, apenas resumi para facilitar. Espero ter sido o mais claro possível. Como posso resolver isso? Grato