VBA To Refresh Pivot Table Filters

See more:

VBA

Hi All,

I am hoping that someone may be able to help with the following.

I currently have a pivot table that has 2 filters. What I need to be able to do is to link these 2 filters to say their own named range that will hold the filter values, and there lies my problem.

I currently have an exxcel 2007 pivot table that I can automatically update the filter but I am at a loss how to do this for 2 filters and for multiple items?? If it is of any use my current script to filter on just 1 item is below;


Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  
   If Not Target.Address = Range("SelectDate").Address Then Exit Sub
    
   Dim PT As PivotTable
   Dim ptItem As PivotItem
    
   On Error Resume Next
  
    For Each PT In Worksheets("8c. Pivot").PivotTables
        With PT.PivotFields("Period (01/MM/YYYY)")
            If .EnableMultiplePageItems = True Then
               .ClearAllFilters
            End If
       
            Set ptItem = .PivotItems(Target.Value)
            If Not ptItem Is Nothing Then
               .CurrentPage = Target.Value
            End If
        
        End With
    
    Next
End Sub

If anyone has any ideas or can help it would be massively appreciated,

Cheers