Trying to set pivot table filter not working

Mr930

Well-known Member
Joined
Aug 31, 2006
Messages
583
I have several pivot tables that are identical. I want to change a filter that exists on all of them at the same time. Here is my code:

Sub ChangeTables()
Dim pt As PivotTable
Dim s As Worksheet

Application.Calculation = xlCalculationManual

For Each s In ThisWorkbook.Sheets ' For every tab
For Each pt In s.PivotTables ' For each pivot table
pt.PivotFields("SCENARIO").CurrentPage = "MyNewValue"
Next pt
Next s

Application.Calculation = xlCalculationSemiautomatic

End Sub

When I run this, the code executes but my pivot table filters are not changed. If I modify the code very slightly to print the current value of the filter to cells in my sheet, it works fine. Actually I started with the code that displays the values, then modified it to change the values.

Any reason why the filter does not change?

thanks
Fred Emmerich
 

Some videos you may like

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Mr930

Well-known Member
Joined
Aug 31, 2006
Messages
583
Stupid human tricks, I was setting my new value from another cell and I had the row/col indexes backwards.

Nevermind....
 

Watch MrExcel Video

Forum statistics

Threads
1,123,320
Messages
5,600,946
Members
414,417
Latest member
Nobu

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top