Marcelo_Tavares

Aeeeee... João, valeu amigo... demorei um pouquinho pra entender, mas peguei.... rsrsrs tive que implementar um pouco porque nesse procedimento copia-se a planilha e nomeia a mesma com a data, logo tive que criar uma variavel pra ler esse nome (data), ficou assim: Private Sub CommandButton3_Click() Dim dia As String Dim mes As String Dim ano As String 'copia plan Base e nomeia com data do report dia = Day(Plan1.Cells(12, 2)) mes = Month(Plan1.Cells(12, 2)) ano = Year(Plan1.Cells(12, 2)) Sheets(3).Copy before:=Sheets("Resume") Sheets("Base (2)").Name = dia & "." & mes & "." & ano 'copia dados do report para a nova planilha Plan1.Range("A15:H34").Copy ActiveSheet.Range("a7").PasteSpecial 'atualiza dados da tabela dinamica com os dados copiados do report 'ThisWorkbook.Worksheets("14.7.2009").PivotTables("Tabela dinâmica1").SourceData = "14.7.2009!a6:h26" Dim nome As String nome = dia & "." & mes & "." & ano ActiveSheet.PivotTables("Tabela dinâmica1").SourceData = nome & "!a6:h26" ' ActiveSheet.PivotTables("Tabela dinâmica2").SourceData = nome & "!a6:h26" ' ActiveSheet.PivotTables("Tabela dinâmica3").SourceData = nome & "!a6:h26" ' ActiveSheet.PivotTables("Tabela dinâmica4").SourceData = nome & "!a6:h26" ' ActiveSheet.PivotTables("Tabela dinâmica5").SourceData = nome & "!a6:h26" ' End Sub Obrigadão mesmo amigo!

Bom dia amigos, estou trabalhando em um planilha e estou com dúvidas na alteração da origem de dados de uma tabela dinâmica. explicando melhor Tenho uma planilha nos quais são inseridos dados (report) Outra que é apenas base do gráficos (base) quando termino o relatorio, o botão cria uma copia da planilha base, e inseri os dados da planilha report nessa nova planilha. Porém os dados dos gráficos e tabela dinamica dessa tabela copiada ainda continuam com os dados da tabela Base... preciso que atualize com os dados que foram copiados da planilha report! alguém pode ajudar? Segue parte do codigo do botão que faz o evento: Private Sub CommandButton3_Click() Dim dia As String Dim mes As String Dim ano As String 'copia plan Base e nomeia com data do report dia = Day(Plan1.Cells(12, 2)) mes = Month(Plan1.Cells(12, 2)) ano = Year(Plan1.Cells(12, 2)) Sheets(3).Copy before:=Sheets("Resume") Sheets("Base (2)").Name = dia & "." & mes & "." & ano 'copia dados do report para a nova planilha Plan1.Range("A15:H34").Copy ActiveSheet.Range("a7").PasteSpecial 'atualiza dados da tabela dinamica com os dados copiados do report ActiveSheet.Pivottables.range(A7:H26) 'não SEI COMO USAR.... ?????