VBA To remove filters from Pivot tables

[Corleone]

im looking to add in some code to an existing macro at the start which selects any pivot table
in worksheet "pivot tables" and removes any filters on them which exist in the rows/or pages

any help appreciated

cheers

 

[jim may]

Have you tried RECORDING A MACRO?

 

[Corleone]

Yup! (no need to shout)

The problem i have is, the pivot table has two categories both entitled (all) in the dropdown
and it picks the "(all)" which has no values assigned to it

i ve found another way around it though cheers

 

[kavster]

Could you please post your solution up here? I'm having a similar issue.

Cheers.

 

[Corleone]

This was a while back now, but i recall that part of the proble was caused by having some records that had been counted in the past by the pivot table under the category of "All"
the,category on these records were subsequently changed to something else to prevent, but the pivot table still made a reference to them.

i the used this macro below to remove any categories in the pivot table which were no longer applicable(including the second "ALL")
------------------------------------------------------------------------------------

Sub pivotDeleteMissingItems()
'prevents unused items in non-OLAP PivotTables
'pivot table tutorial by contextures.com
Dim pt As PivotTable
Dim ws As Worksheet
Dim pc As PivotCache

'change the settinET
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws

'refresh all the pivot caches
For Each pc In ActiveWorkbook.PivotCaches
On Error Resume Next
pc.Refresh
Next pc

End Sub

 

[kavster]

Great! Thanks for your prompt reply.