ApplyPivotFilter secundário ()
pItem não ofuscante como PivotItem
Com ActiveSheet.PivotTables (“ActivityEstimatesPivotTable”) .PivotFields (_
“Status”)
Para cada pItem em .PivotItems
Se (pItem.Value <> “4 - Resolved”) e _
(pItem.Value <> “verific”) então
pItem.Visible = falso
Terminar se
pItem seguinte
Extremidade com
Submarino da extremidade
|