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
Brisanje polj iz vrtilne tabele
Re: Brisanje polj iz vrtilne tabele
Pozdravljeni,
Odstraniti morate tudi podatkovna polja:
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator