Newbie Worksheet_Change question
I'm using Excel 2007 and am trying to use one pivot table's report filter to
automatically change the same filter on a different pivot table on the same
sheet. Any help would be greatly appreciated.
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("PVT2D ate").CurrentPage
= Range("Fiscal_Cal").Value
End If
Application.ScreenUpdating = True
End Sub
What am i missing?
|