Brisanje polj iz vrtilne tabele

[pero978]

Pozdravljeni,

Rad bi izdelal makro ( s pomočjo google ), ki bo odstranil vsa polja iz vrtilne tabele, vendar mi ne uspe popolnoma, ker sicer ostrani polja iz območij filtri, stolpci in vrstice ne pa iz območja vrednosti.

Hvala, lp

Sub Hide_Fields()
For Each pvt In ActiveSheet.PivotTables
For Each pvtfld In pvt.PivotFields
pvtfld.Orientation = xlHidden
Next pvtfld
Next pvt
End Sub

[admin]

Pozdravljeni,

Odstraniti morate tudi podatkovna polja:

Koda: Izberi vse

  Dim pvt, pvtfld
  For Each pvt In ActiveSheet.PivotTables
    pvt.ManualUpdate = True
    
    For Each pvtfld In pvt.DataFields
      pvtfld.Orientation = xlHidden
    Next pvtfld
    
    For Each pvtfld In pvt.PivotFields
      pvtfld.Orientation = xlHidden
    Next pvtfld
    
    pvt.ManualUpdate = False
  Next pvt