Atualizar tudo no Excel: Como Atualizar todas as Tabelas Dinâmicas com VBA?

Atualizar tudo no Excel: Como Atualizar todas as Tabelas Dinâmicas com VBA?

Objetivo: O objetivo dessa planilha é disponibilizar uma forma para atualizar o excel. Ou seja, atualizar todas as tabelas dinâmicas de um arquivo Excel utilizando VBA.

Esta é uma situação que tive na empresa outro dia, principalmente quando houverem muitas tabelas dinâmicas.

O Excel normalmente atualiza todos os seus dados e também as tabelas dinâmicas clicando no botão Atualizar Todos na guia Dados->Atualizar Tudo, porém já vi situações aonde há muitas tabelas  dinâmicas, principalmente com conexão a banco de dados aonde as tabelas dinâmicas por algum motivo não atualizam todas, sendo então necessário atualizar todas manualmente.

Para isso você pode utilizar o seguinte código fonte em VBA:

Sub RefreshPivotTables()
  '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

Essa versão está disponível para atualizar sua planilha automaticamente.

Veja neste outro artigo como aplicar este e outros códigos VBA que você buscar na internet: o: http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-internet

Abraço

Marcos Rieper

_____

Guia do Excel é o seu canal de conhecimento em Excel e VBA. Aqui você encontra centenas de modelos de planilhas prontas e gratuitas para download. Participe e sinta-se à vontade para dividir o seu conhecimento enviando também as suas matérias para o site.

Links Úteis: O que é VBA? Leia Aqui