VBA Pivot Table Multiple Filters

0

Hi,

I would like my macro for the pivot table to Filter cells B3 and B4 once run. If you could help with correcting the code below I would appreciate.

Regards

Minesh

__________________________________________________________

Sub Updated_Report_Based_On_Selected_Customers()

Dim Field6 As PivotField
Dim NewCat6 As String


Set Field6 = Worksheets("Graphs").PivotTables("PivotTable6").PivotFields("Customer Name")
NewCat6 = Worksheets("Graphs").Range("B3").Value
NewCat7 = Worksheets("Graphs").Range("B4").Value

Field6.ClearAllFilters
Field6.EnableMultiplePageItems = True

On Error Resume Next

Field6.CurrentPage = NewCat6
Field6.CurrentPage = NewCat7
Worksheets("Graphs").PivotTables("PivotTable6").PivotCache.Refresh

'
'
'


End Sub

Answer
Discuss


Answer the Question

You must create an account to use the forum. Create an Account or Login