Conditional pivot update

[Snoopy]

Hey guys
I want to show all fields of my pivot-table - except the
"Emty" (including each perpetual new revision).
In the start of my macro the pivot-table is excluded the field "Emty"
and this cause that new generated fields "Rev n+1)" are not shown in
the "revised" pivot-table (unless I choose theese fields manually).
How can I make my macro show all the fields, except the field "Emty",
on very update?

Very best regards Snoopy


This is a outprint of the inadequate macro......
With ActiveSheet.PivotTables("Trend").PivotFields("Rev Current")
.PivotItems("Rev A").Visible = True
.PivotItems("Rev 01").Visible = True
.PivotItems("Rev 02").Visible = True
.PivotItems("Rev 03").Visible = True
' Here I want a update to new revisions
.PivotItems("(Emty)").Visible = False
End With
End Sub

 

[Herbert Seidenberg]

Excel 2007 PivotTable
Hide "Empty" PivotField item
Update with macro.
http://www.mediafire.com/file/zo04nkymoqy/11_09_09.xlsm

 

[Herbert Seidenberg]

Necessary PivotTableOption > Data > Retain Items > None