Atualizar tabela dinâmica sem botão

Códigos Desempenho

De maneira simples demonstro como atualizar uma tabela dinâmica sem botão, automaticamente, e para funcionar:

A Tabela de dados, conteúdo, deve estar na Plan1
O código VBA abaixo e a tabela dinâmica deve estar no mesmo sheet (no caso abaixo no Plan2)

Desta maneira ao alterar os dados na Plan1 e ao clicar no Plan2 irá atualizar automaticamente a tab. dinamica (Plan2)

Codigo Atualizar Tabela Dinâmica sem botão

Private Sub Worksheet_Activate()

'Lembrando que este código deve estar no Plan2 'PivotTable1, é o nome da tabela dinâmica
Sheets("Plan2").PivotTables("PivotTable1").RefreshTable

End Sub

1

2

3

4

5

6

7

8

9

Private Sub Worksheet_Activate()

'Lembrando que este código deve estar no Plan2 'PivotTable1, é o nome da tabela dinâmica

Sheets("Plan2").PivotTables("PivotTable1").RefreshTable

End Sub

Video Demonstrativo