R
Ron
I recorded a pivot table and have code like this in it. However, each day I
run it against a different file and the Pivot Items are different.
1st day
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Problem")
.PivotItems("Upgrade").Visible = False
.PivotItems("Slow Speed").Visible = False
.PivotItems("Cannot Create Customer Account").Visible = False
2nd day
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Problem")
.PivotItems("Out of Service").Visible = False
.PivotItems("Slow Speed").Visible = False
.PivotItems("Account Disabled").Visible = False
The macro aborts any time an entry is not there (Upgrade) and again when
there is a new entry (Out of Service)
So how do you create a pivot table that will run no matter what the data is?
This is the lines after the above.
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Problem")
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Cluster")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Diagnosis")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable5").PivotFields("Cluster").Orientation = _
xlHidden
Any help would be appreciated.
Thanks,
Ron
run it against a different file and the Pivot Items are different.
1st day
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Problem")
.PivotItems("Upgrade").Visible = False
.PivotItems("Slow Speed").Visible = False
.PivotItems("Cannot Create Customer Account").Visible = False
2nd day
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Problem")
.PivotItems("Out of Service").Visible = False
.PivotItems("Slow Speed").Visible = False
.PivotItems("Account Disabled").Visible = False
The macro aborts any time an entry is not there (Upgrade) and again when
there is a new entry (Out of Service)
So how do you create a pivot table that will run no matter what the data is?
This is the lines after the above.
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Problem")
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Cluster")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Diagnosis")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable5").PivotFields("Cluster").Orientation = _
xlHidden
Any help would be appreciated.
Thanks,
Ron