VBA code for Pivot Table Filters into new tabs

[ziegleen]

Hello Everyone,

I have wrote VBA code for a pivot table that includes a filter for 10 shops I am dealing with. Is there a way to put each shops data into a new tab within the same workbook from the Pivot. So there will now be 10 new tabs with all of the respective shops data.

Any help is much appreciated.

Thanks!

 

[ParamRay]

It is actually very quick to do this without VBA. Just follow PivotTable Tools --> Analyze --> PivotTable --> Options --> Show Report Filter Pages.

The VBA behind it is very simple as well:

ActiveSheet.PivotTables("PivotTable1").ShowPages PageField:="MyReportFilter"

 

[Satya koppisetti]

I am getting error while assign this VBA.

Error :-
"Run-time error '1004':
Unable to get the PivotTables property of the worksheet class