Alterar dados da tabela dinamica

[Marcelo_Tavares]

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....

?????

Editado Julho 6, 2009 por kuroi
Adicionar tag CODE

[João.Neto]

Marcelo, tente o código abaixo:

ThisWorkbook.Worksheets(1).PivotTables("Tabela dinâmica1").SourceData = "Plan1!R1C1:R188C19"

Ou, se a tabela dinâmica não estiver na mesma pasta de trabalho de onde a macro está sendo executada:

Workbooks("NomeDaPasta.xls").Worksheets(1).PivotTables("Tabela dinâmica1").SourceData = "Plan1!R1C1:R188C19"

beleza, meu jovem? B)

Editado Julho 12, 2009 por João.Neto

[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!