Linking pivot tables with VBA

[cmb80]

Hi all, I have 3 pivot tables with the same 3 "report filters" but each with different row and column labels.

All pivot tabels are on teh same sheet (Sheet2), I would like to know how to change the pivot filter on the other 2 tables if I change the filter on the first.

For instance, if I change the filter "Fruit" to bananas on pivot table 1, I would like the filters on pivot tables 2 and 3 to also change to bananas.

Any help would be appreciated

[Andy Pope]

right click sheet tab and pick View Code.

Paste the following in to the sheet code module.

Please Login or Register  to view this content.

[cmb80]

Hi Andy, I get an error message which highlights the section "strCurrentPage = Target.PivotFields("Quarter").CurrentPage"

The error message says run time error 1004, unable to get the pivotfields property of the pivot table class

[Andy Pope]

Did you change the name "Quarter" to what ever the pagefield in your pivot table is called, as it's the name I used for testing

[cmb80]

Hi Andy, what is the page field? I have changed quarter to both the current page name, and the data set page name and I get the same error

[Andy Pope]

pagefield is the thing that you are using to filter the pivot table, you called it 'report filters'.

If still stuck post example workbook.

[cmb80]

Thanks Andy, works a treat

[mmeier017]

How would you do this if you are trying to link three pivot fields located on separate sheets?

[arlu1201]

mmeier017,

Unfortunately you need to post your question in a new thread, it's against the forum rules to post a question in the thread of another user. If you create your own thread, any advice will be tailored to your situation so you should include a description of what you've done and are trying to do. Also, if you feel that this thread is particularly relevant to what you are trying to do, you can surely include a link to it in your new thread.