Please help me in Synchronizing two Pivot tables of same data with One Report Filter.
I have almost done with the Following VB Code found in the Web, but as i dont know how to add some more fields in the Code.(Ex: The below code only changes my "Region" filter but i have some more filter field in my pivot table as "State", "Town".) If you would have tell me how to add more strings(Report Filter Field) in the following code will also help me in closing this.
Thanks in advance.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pi As PivotItem
Dim strField As String
strField = "Region"
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Address = Range("B1").Address Then
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
For Each pi In .PivotItems
If pi.Value = Target.Value Then
.CurrentPage = Target.Value
.CurrentPage = "(All)"
Application.EnableEvents = True
Application.ScreenUpdating = True