Controlling Pivotitems.visible

S

sxhwabbiemike

KEEP GETTING AN ERROR WHEN POSTING TO EXCEL PROGRAMMING

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

Help on Marcos 0
Controlling Pivotitems.visible 0
Macro in Excel with Pivot table 4
delete selection in pivotcolumn 3
VBA, Macros and Pivot Tables 1
Dynamic Pivot Item Selection 1
Pivot Table Filtering - Macro 3
Pivot Table Help 1

Top