Új hozzászólás Aktív témák

• #35974 Fferi50 Topikgazda Ptech #35970

  Új Válasz 2017-08-15 11:26:52 #35974

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Ptech #35970 üzenetére

  Szia!

  Ciklussal végig kell menni a pivottáblákon, úgy ahogyan a pivotitemmel teszed.

  Dim PT As PivotTable
Dim PvI As PivotItem

For each PT in Worksheets("Summary").PivotTables
With PT.PivotFields("Status")
For Each PvI In .PivotItems
Select Case PvI.Name
Case "(blank)"
PvI.Visible = False
Case Else
PvI.Visible = True
End Select
Next
End With
Next

  Üdv.

Új hozzászólás Aktív témák