Filtering Pivot - VBA taking too long

[kenadams378]

Hi i have the following code that is filtering over 40k lines of data but is taking too long, is there anyway to speed this up?

Please Login or Register  to view this content.

[kenadams378]

'Bump - No response

[tehneXus]

Hi,

in fact, filtering pivot tables is horrible..

Changes:
1. Declare your variables !
2. Looping the worksheets only once
3. At first removing all filters from the pivot table, then hiding according to conditions. This is faster than setting an item to visible which is visible already.
4. "If" condition rewritten, the problem with "If xx Or yy" is that although xx is true, yy is checked too. Therefor place the condition which will be most likely true at the beginning.

Cannot test it with 40k records (slow machine) but experienced half runtime with 1k records.

Code:

Please Login or Register  to view this content.

[kenadams378]

Ah i see where i went wrong, you are a genius!

Thank you so much