Este fórum está sendo desativado

[nathanaelacerda300]

Pessoal tenho uma tabela dinâmica em uma sheet. Eu quero um VBA para atualizar o gráfico automaticamente após modificação dos dados. Estava usando esse código:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.RefreshAll
End Sub

Porém ele atualiza todas as tabelas da pasta de trabalho, e eu quero que atualize somente a planilha atual. Tem como?

[AfonsoMira]

Boas.
Eu nas minhas planilhas utilizo este código, veja se le serve.

Código: Selecionar todos

Sub atualiza_tabelas

  'Objeto de tabela dinâmica
  Dim pivotTable As pivotTable
 
  'Loop por todos os objetos da planilha
  For Each plan In ActiveWorkbook.Sheets
    For Each pivotTable In plan.PivotTables
        
        pivotTable.RefreshTable
    Next
  Next
End sub

Basta chamar a macro no evento change da planilha.

Ou seja ficaria algo como:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
atualiza_tabelas
End Sub