Pivottable

L

Lasse Matsson

Hi

I want to hide all item in a pivotfield , but not the first one. Now I use
this code, but it takes a lot of time to loop (4000 items). Can I do it in a
other way, to do it faster?

With ActiveSheet.PivotTables("PivotTable1").PivotFields("PRODNO")
For I = 2 To .PivotItems.Count
.PivotItems(I).Visible = False
Next I
End With

Regards // Lasse
 
G

Guest

If you only want to show one product why not just drag the Prod No off of the
table and include it in the header? In the header you can just select the
first item.

HTH
 

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
All Pivot table include different pivot field to save as individualworkbook 5
pivot table macro with a filtering variable 3
Pivot Table - How do I "Show All Data" of a particular field? 6
Macro on filtering pivot table (pivot fields) => debug 2
Pivot Table Filtering - Macro 3
Creating reports per Pivot Table PivotItem 1
remove/delete/hide/exclude all (Blanks) in a pivot table macro 3

Top