Este post foi originalmente publicado em http://officevbavsto.blogspot.com/2011/05/quickshot-atualizando-tabelas-dinamicas.html.

Neste post, eu escrevo uma dica rápida para você atualizar uma tabela dinâmica usando VBA.

Veja o código abaixo:

Sub atualiza_tabelasDinamicas()
    
    Dim pvt As PivotTable
    Dim wks As Worksheet
    
    For Each wks In ThisWorkbook.Worksheets
    
        For Each pvt In wks.PivotTables
        
            pvt.RefreshTable
        
        Next pvt
        
    Next wks
End Sub

Este código percorre todas as planilhas - Worksheets - da pasta de trabalho de onde está sendo executado o código -

  • ThisWorkbook aponta para a pasta de trabalho onde está o código em execução;
  • Para cada planilha - Worksheet - a rotina percorre todas as tabelas dinâmicas - PivotTables;
  • O comando RefreshTable atualiza a tabela dinâmica.

Créditos

Photo by Pixabay from Pexels