Excel Marcar itens na tabela dinâmica - macro

[LucasExcel]

Bom dia,

Como faço para selecionar todos os itens do filtro "data" na tabela dinâmica1, exceto quando o item do filtro "data" estiver vazia ou nulo ou "" ?

 

No código abaixo eu consigo atualizar a tabela dinâmica e desmarcar o item "" no filtro "data" na tabela dinâmica mas não consigo marcar todos os outros itens da mesma tabela.

 

    Range("AI4").Select
    ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Data")
        .PivotItems("").Visible = False
        End With

[Midori]

35 minutos atrás, LucasExcel disse:

Como faço para selecionar todos os itens do filtro "data" na tabela dinâmica1, exceto quando o item do filtro "data" estiver vazia ou nulo ou "" ?

Para selecionar todos use ClearAllFilters e para desativar vazio atribua false para o item blank,

 

With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Data")
    .ClearAllFilters
    .PivotItems("(blank)").Visible = False
End With

 

[LucasExcel]

 

Obrigado