Updating PIVOT table

[scotball]

Hey,

So here's the latest problem...

I have created a dashboard based on a number of pivot tables. (Using GETPIVOTDATA tags)

One of the fields in the Dash tab is Week which is a drop down menu of 1-13. (GLA Dash C3)

I have two pivot tables in seperate tabs. (BottomQuartile1 and BottomQuartile2) both have Week as Report Filter.

At the moment when I change the week in Dash from 4 to 5 i have to manually go into the two BottomQuartile tabs and alter the week to match.

Is there anyway I can automate this process so that when i update the week in Dash it will update the Week in the other two tabs?

Thanks,
Lee

 

[scotball]

Added the code and didnt get any message when I changed the week

 

[Andrew Poulsom]

In the Visual Basic Editor go to the Immediate Window, type:

Application.EnableEvents = True

and press Enter. Then try changing the value.

 

[scotball]

Hey Andrew,

At last It works perfectly now. you are indeed the MVP

So happy now!!

Thanks!!!!

Lee

 

[adept]

Hello,

I have been scratching my head with a similar problem.
I have two Pivot tables (Last_Account_Item_Lookup, Max_Account_Item_Lookup) that I want to change to the same Account as it is changed on another sheet. One Pivot table (Last_Account_Item_Lookup) also has a date field that I want to change based on a vlookup on another sheet. Seems simple to me.

I have the Account value as a named range Route on sheet Make Stuff which I make the selection.

I want the Account to be the same on each Pivot table and the Date to change when I click a Finish button macro.

This is what I have recorded, but can't get it to change

Sub ChangeAccount ()
    Sheets("Max_Account_Item_Lookup").Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Account")
        .PivotItems(Route).Visible = True
    End With
End Sub

I am using Excel 2002 SP3