VB change filter based on cell value error: run-time error '1004' unable to set the currentpage property of the pivotfield class.

[countryfan_nt]

Hello friends, hope all is well.

I am trying to have a code that goes to a cell, picks up the date, and applies it to the filtered field of the pivot/power pivot.

I am getting an error (run-time error '1004' unable to set the currentpage property of the pivotfield class).

after debugging I get the following highlighted:

.CurrentPage = "All"

Please help me make the code run without errors.

Thanks a lot in advance!

Sub FilterMonth()

Dim pt As PivotTable
Dim Field As PivotField
Dim Stng As String

'defining the pivot table and the field
Set pt = Worksheets("Pivot").PivotTables("PivotTable1")
Set Field = pt.PivotFields("[dr salary database].[month].[month]")

'the date value
Stng = Worksheets("summary").Range("m4").Value

With Field
.ClearAllFilters
'this line below doesn't work
.CurrentPage = "All"
pt.RefreshTable
End With

End Sub

 

[tahir9]

I would use CurrentPageName and see if that works, in place of CurrentPage. I was having a similar issue with it.