Synchronized Pivot Tables

[emanon132501]

Hi,

Is it possible to have two pivot tables synchronized when changing filter items? Say, if i selected a date on Pivot Table 1 filter I would like Pivot Table 2 to automatically change date as well.

[mojo249]

Hi

The below code works in Excel 2003. Couldn't get it to work in Excel 2007 though.

Dion

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Dim ptTable As PivotTable

On Error GoTo ExitPoint
Application.EnableEvents = False
For Each ptTable In ActiveSheet.PivotTables
    If ptTable <> Target Then
        ptTable.PivotFields("Date").CurrentPage = Target.PivotFields("Date").CurrentPage.Value
    End If
Next ptTable
ExitPoint:
Application.EnableEvents = True
End Sub