Thread: VBA Code which mirrors changes on one pivot onto a second pivot

Without seeing the files etc it's obviously hard to comment but as I see it you're only ever referring to pt1

Code:

Set pt1 = ws.PivotTables("RIW2")

which we assume relates to 2nd pivot...

however, you're then using an approach of:

Code:

   mvAT = pt1.PivotFields(strField1).CurrentPage
 
   With pt1.PageFields(strField1)
        .CurrentPage = "(All)"
        For Each pi In .PivotItems
            If pi.Value = mvAT Then
             .CurrentPage = mvAT
               Exit For
            End If
        Next pi
    End With

all this will do is go to All and then revert to original setting... you should I think be basing mVAT off Target rather than pt1....ie:

Code:

mvAT = Target.PivotFields(strField1).CurrentPage

in the above we're assuming you're only setting filters via 1st Pivot - it's not an either/or affair.