Atualizar tabela dinâmica com macro

Question

Estou atualizando uma tabela dinâmica via macro. O problema que estou encontrando é o seguinte:

tenho um campo com nomes. Ao atualizar a tabela via macro, os nomes antigos que deixaram de existir, continuam aparecendo na lista da tabela dinâmica.

Alguém saberia me dizer por que isso ocorre e como solucionar o problema?

Obrigado!

Answer 1

Olá José,

Na verdade o seu problema está relacionado a uma propriedade da tabela dinâmica.

Clique na área da tabela dinâmica com o botão direito do mouse e selecione Opções da Tabela Dinâmica

Na guia Dados defina o campo Número de itens retidos por campo como Nenhum.

Pronto.

Agora ao atualizar os dados da sua tabela dinâmica itens removidos serão também removidos dos filtros de campos.

Caso queira incluir esta operação na macro :

' Definir a remoção nos filtros de campos

    ActiveSheet.PivotTables("PivotTable1").PivotCache.MissingItemsLimit = xlMissingItemsNone

' Atualiza a tabela dinâmica

    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

Espero tê-lo ajudado.

Se a dica foi útil não esqueça de sinalizar e marcar como respondida.

Abraços,

Answer 2

Talvez você não tenha feito o Refresh da tabela dinâmica:

Dim wks As Worksheet

Dim pvt As PivotTable

Set wks = ThisWorkbook.Worksheets("Plan1")

Set pvt = wks.PivotTables(1)

pvt.RefreshTable

Answer 3

Bom dia Luiz Claudio ,

A Macro Funcionou corretamente, mais nao consegui manter os filtros aplicando na tabela dinaminca, pode me auxiliar ?

Abraços