Connection Between Two Pivot Tables

[bliang]

I have this problem for many years and need a big help! I have two pivot tables with identical page views. They are not using the same data source. What I need is whenever I select one page in one pivot table, anther pivot table will automatically select the same page. Is it possible by using VBA?

Thanks in advance.

Bliang

 

[Juan Pablo González]

Yes, it's possible.

I used the change event of the worksheet, something like this:

<pre>Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$1" Then 'Changed pagefield of PivotTable 1
Range("K1").PivotTable.PageFields(1).CurrentPage = Target.Value 'Update PT 2
ElseIf Target.Address = "$K$1" Then 'Changed pagefield of PivotTable 2
Range("B1").PivotTable.PageFields(1).CurrentPage = Target.Value 'Update PT 1
End If
Application.EnableEvents = True
End Sub</pre>This example assumes that both PT's are on the same worksheet, but, that can be adjusted.

 

[bliang]

Thanks for the help. However, after I copy your code, it is still not working.

Please advise it.

Bliang