Macro em tabela dinâmica

Question

Pessoal, preciso de uma ajuda urgente: tenho várias tabelas dinâmica que tem os dados atualizados periodicamente, porém há filtros nessa tabela que precisam ser atualizados junto. O que acontece é que nunca dá certo de manter o filtro e dá a seguinte mensagem quando rodo a macro para atualizar a dinâmica: Erro em tempo de execução 1004: Não é possível obter a propriedade PivotFields da classe PivotTable.

Answer 1

Oi Viquiss

Será que você poderia mostrar a parte do código que está dando erro?

Uma boa maneira de tentar descobrir o problema é ligar o gravador de macros e definir o filtro na mão. Gravada a macro, compare com o seu código para tentar identificar o que está diferente.

Fiz isto numa TD que tenho e deu mais ou menos isto (cortei uma parte para não ficar muito grande)

 With ActiveSheet.PivotTables("BudgePivot1").PivotFields("Programa")

        .PivotItems("Rádio").Visible = False

        .PivotItems("Rede M").Visible = False

        .PivotItems("Reestruturação").Visible = False      

 End With

Selecionei só um item (PivotItems) do campo (PivotFields) "Programa"

Ou seja, a macro simplesmente alterou a propriedade Visible da cada PivotItem não selecionado para False.

Espero que ajude.

abraços,

M.