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
