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

• #35970 Ptech addikt

  Új Válasz 2017-08-14 14:39:54 #35970

  Ú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

  

  Ptech

  addikt

  Sziasztok,

  Az alábbi kód kiveszi egy pivotból a blank mezőt.
  Viszont több pivot van is van a lapon (illetve várható hogy több is kerül még bele), hogy irható át a kód úgy, hogy minden pivotból vegye ki a blank mezőket, ne csak a PivotTable1-ből?

  Dim PT As PivotTable
Dim PvI As PivotItem

Set PT = Worksheets("Summary").PivotTables("PivotTable1")
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

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