Controlling Pivotitems.visible

S

sxhwabbiemike

I have a PivotTable and would like to selectively display PivotItems.

I'm running the following code which will only display the "install dates"
for the next 7 days starting with the current date although I do want all of
the dates available for display.

The code works, but is very slow since the there are hundreds of unique
PivotItems.

Is there a ways to set all of the PivotItems visibility to FALSE and then
only set the ones I want displayed to TRUE.

Looking for a faster more efficient technique.

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Install Date")
y = .PivotItems.Count - 1
For x = 1 To y
.PivotItems(x).Visible = False
Next
.PivotItems("1/20/2009").Visible = True
.PivotItems("1/21/2009").Visible = True
.PivotItems("1/22/2009").Visible = True
.PivotItems("1/23/2009").Visible = True
.PivotItems("1/24/2009").Visible = True
.PivotItems("1/25/2009").Visible = True
.PivotItems("1/26/2009").Visible = True
.PivotItems(y + 1).Visible = False
End With
 

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

delete selection in pivotcolumn 3
VBA, Macros and Pivot Tables 1
Dynamic Pivot Item Selection 1
Pivot Table Filtering - Macro 3
PivotTable 2003 Code is not working 0
VBA Pivot Table: Determining item from one field based on anotherfield item 0
Pivot Table - How do I "Show All Data" of a particular field? 6
Controlling Pivotitems.visible 0

Top