PivotTable, Pivotfield selective invisible, too slow

M

MSN

Hi,

If the row in PivotTable are all "0", I want to make it invisible.

Dim PI as PivotItem

For each PI in PT.PivotFields("Account")
IF ...row = 0.... Then
PI.visible=False
Else
PI.visible=True
End IF
Next PI

It works, but PivotTable seems to update itself all the time, and it takes
too long to update the whole table.

I tried to use PT.ManualUpdate=False at the beginning, and then
PT.ManualUpdate=True at the end of the code. But the macro doesn't seem to
work.

Is there a quicker way?

Thanks a lot.

Sam
 

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

Change report firlds in pivot tables and charts with one selection 0
Filter a pivot table with large number of unique items in the filterlist 1
PivotField select all 3
Macro Help in Pivot 2
Select a PivotField range without using the range object 1
Set PivotItem using counter 1
Show Specific Item in Specific Field 0
Linking Page Fields for multiple pivot tables 2

Top