Comments on: Update Regular Chart when Pivot Table Updates

By: Bryan Marks

Bryan Marks — Wed, 16 Mar 2011 20:25:36 +0000

Thanks for answering so quickly! Unfortunately, I still have some questions due to my ignorance of macros and VBA:

1. Those two lines of code are already included in the big macro at the top of this post, so does adding them again to the bottom of the macro fix things?

2. I ran a compile on the following code and received an error message saying it was an invalid use of the Me keyword.

3. I’m afraid I still don’t understand what indexes reference. What does “the index of the chart reference” and “the index of the pivot table” mean?

4. Is my problem that the pivot tables are all based on the exact same source data?

5. I hate to ask, but can you put the macro together as it should appear to only update the specific charts associated with a specific pivot table?

Thanks again!

Bryan

By: Jon Peltier

Jon Peltier — Wed, 16 Mar 2011 20:14:55 +0000

Bryan -

Right after the sentence you cited, there are two lines of code:

Set cht = ActiveSheet.ChartObjects(1).Chart
Set pt = ActiveSheet.PivotTables(1)

the indexes are the “(1)” in these commands, one for index of the chart object, the other for the index of the pivot table. It might be more robust to name the chart and the pivot table.

By: Bryan Marks

Bryan Marks — Wed, 16 Mar 2011 17:56:25 +0000

I have a series of graphs on different worksheets. Each graph is based on a different pivot table. I’m trying to make it so that each graph will automatically be updated if any changes are made to the specific pivot table to which it is tied. For example, the pivot table contains data for all 50 states over ten years. I’d like to see the graph update if someone selects one or multiple states in the pivot table without repeating that exercise by clicking on the graph itself.

I tried using the first macro and then the one below so that only the graph on the same page as the pivot table gets updated, but what is happening is that ALL graphs are getting updated using the same single pivot table data. This is obviously not what I want to happen.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False

If Target.Name = Me.PivotTables(1).Name Then
UpdateChartFromPivotTable
End If

Application.EnableEvents = True
End Sub

Unfortunately, I didn’t understand what you meant with this statement, but this would appear to fix the problem I’m having now: “You could further modify the code to update different charts which are based on different pivot tables. Modify the indexes in these lines, instead of using “1″.” To what do the indexes refer?

Thanks for your help!

Bryan