Hi All, Trying to filter a pivot field using a macro. Following is the image for the pivot table Imgur: The most awesome images on the Internet And below is the code that is giving me the error (In red). Thoughts?? Sub TestPivot() With ActiveSheet.PivotTables(1) .PivotFields("Business Unit").ClearAllFilters .PivotFields("Business Unit").PivotFilters.Add Type:=xlCaptionEquals, Value1:=[C2].Value End With End Sub Many thanks!

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

VBA pivot table filter error

Thread starter nhulang
Start date Jul 27, 2016
Tags

fields filters macros pivot tables vba

nhulang

New Member

Jul 27, 2016

Hi All,

Trying to filter a pivot field using a macro. Following is the image for the pivot table

Imgur: The most awesome images on the Internet

And below is the code that is giving me the error (In red). Thoughts??

Code:

Sub TestPivot()


With ActiveSheet.PivotTables(1)
.PivotFields("Business Unit").ClearAllFilters
[COLOR=#ff0000].PivotFields("Business Unit").PivotFilters.Add Type:=xlCaptionEquals, Value1:=[C2].Value[/COLOR]


End With
End Sub

Many thanks!