P
pkern
I'm working with Excel 2007 and trying to have the report filter in one pivot
table automatically chage the 2nd pivot table on the same sheet. I'm new and
having some problems. any help would be appreciated. Here is my code.
My main pivot table is called PVT1
Fiscal_Cal is the field my report filter is in
Fiscal_Calendar_Check is the field beside for checking
PVT2 is the second table
PVT2Date is the date the report filter is in
Here is my code
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Fiscal_Cal") <> Range("Fiscal_Calendar_Check") Then
Application.ScreenUpdating = False
Else
Exit Sub
End If
If Range("Fiscal_Cal") <> Range("Fiscal_Calendar_Check") Then
Range("Fiscal_Calendar_Check") = Range("Fiscal_Cal")
ActiveSheet.PivotTables("PVT2").PivotFields("PVT2Date").CurrentPage
= Range("Fiscal_Cal").Value
End If
Application.ScreenUpdating = True
End Sub
What am i missing?
table automatically chage the 2nd pivot table on the same sheet. I'm new and
having some problems. any help would be appreciated. Here is my code.
My main pivot table is called PVT1
Fiscal_Cal is the field my report filter is in
Fiscal_Calendar_Check is the field beside for checking
PVT2 is the second table
PVT2Date is the date the report filter is in
Here is my code
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Fiscal_Cal") <> Range("Fiscal_Calendar_Check") Then
Application.ScreenUpdating = False
Else
Exit Sub
End If
If Range("Fiscal_Cal") <> Range("Fiscal_Calendar_Check") Then
Range("Fiscal_Calendar_Check") = Range("Fiscal_Cal")
ActiveSheet.PivotTables("PVT2").PivotFields("PVT2Date").CurrentPage
= Range("Fiscal_Cal").Value
End If
Application.ScreenUpdating = True
End Sub
What am i missing?