remove pivotfields and refresh

S

S Himmelrich

I have four pivot views, D Rank, S Rank, B Rank and O Rank. I know
how to add an items as illustrated below below, however removing it
errors when it's actually not there...how do I avoid this is my
question?

ActiveCell.FormulaR1C1 = "Data Completeness Rank"


' if the Pivot field is not showing I error out just below
ActiveSheet.PivotTables("PivotTable1").PivotFields("S
Rank").Orientation _
= xlHidden
ActiveSheet.PivotTables("PivotTable1").PivotFields("B Rank"). _
Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").PivotFields("O Rank"). _
Orientation = xlHidden


ActiveSheet.PivotTables("PivotTable1").AddDataField
ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("DC Rank"), "Sum of DC Rank",
xlSum
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

remove add pivot table fields 0
remove or add items from a pivot tables 1
Looking to remove pivot fields from pivot table via macro 0
macro to turn pivot table field on and off 1
VBA Pivot Table Error 1
Remover ODBC Dialog Box 0
syntax in VBA to create a pivot table 2
Loop through sheets and create a small PivotTable on each 2

Top