Como atualizar automaticamente uma Tabela Dinâmica no Excel?

Normalmente, quando atualizamos os dados de origem de uma tabela dinâmica, a tabela não será atualizada até que cliquemos em Analisar > Atualizar manualmente. Isso pode ser bastante tedioso se a tabela dinâmica estiver em outra planilha e você pode esquecer de atualizá-la. Aqui, este artigo apresentará um VBA para atualizar automaticamente uma tabela dinâmica no Excel.

Atualizar automaticamente uma Tabela Dinâmica com VBA

Atualizar automaticamente uma Tabela Dinâmica com VBA

Por favor, siga os passos abaixo para aplicar o VBA para atualizar automaticamente a tabela dinâmica especificada no Excel.

1Na barra de abas da Planilha, clique com o botão direito na aba da planilha que contém os dados de origem e selecione Visualizar Código no menu de contexto. Veja a captura de tela:

2. Na janela Microsoft Visual Basic for Applications que abrir, por favor cole o código.

VBA: Atualização automática da tabela dinâmica especificada

Private Sub Worksheet_Change(ByVal Target As Range)
 Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
 End Sub

Notas:
(1) No código Worksheets("nome da planilha").PivotTables("Nome da Tabela Dinâmica").PivotCache.Refresh, substitua nome da planilha pelo nome da planilha que contém a tabela dinâmica especificada, e substitua o Nome da Tabela Dinâmica pelo nome da tabela dinâmica especificada.
(2) Selecione qualquer célula na tabela dinâmica especificada, você obterá seu nome na aba Analisar (ou na aba Opções ). Veja a captura de tela:

3. Salve o código.

A partir de agora, quando você alterar os dados nos dados de origem, a tabela dinâmica especificada será atualizada automaticamente.

Artigos relacionados:

Como calcular a média por dia/mês/trimestre/hora com uma tabela dinâmica no Excel?