Filtering Pivot Table Using VBA

Question

I am trying to write out some VBA code to filter a pivottable of mine to show only records greater than 0.

When I run the code, I receive ther error "Application-defined or object-defined error".

I really have no idea what is causing the issue, so hoping for some assistance from you all!

Here's my code:

 Sheet32.PivotTables("PivotTable11").PivotFields("Retail Division"). _
        PivotFilters.Add Type:=xlValueIsGreaterThan, DataField:=Sheet32.PivotTables("PivotTable11").PivotFields("Sum of Recordable Injuries"), Value1:=0

Any ideas why the code is not running?

J.Doe · Accepted Answer · 2018-04-17 23:14:22Z

2

Try clearing the filter before your line :

 Sheet32.PivotTables("PivotTable11").PivotFields("Retail Division").ClearAllFilters

answered Apr 17, 2018 at 23:14

J.Doe

5961 gold badge3 silver badges7 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

ranopano Over a year ago

That did it! Thanks so much!

Collectives™ on Stack Overflow

Filtering Pivot Table Using VBA

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related