VBA PivotT filter: Unable to get the pivotfields property of the worksheet class.

[countryfan_nt]

Hello friends, Hope all is well!

The VB has a bug. Trying to filter a PivotTable with a cell value (CB2).
I got the bug: unable to get the pivotfields property of the worksheet class

And the following line is highlighted: Set xPFile = xPTable.PivotFields("Month")

Your kind & continuous help is needed and always appreciated.

Sub Slice1()
    
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("RNO").PivotTables("RNO1")
    Set xPFile = xPTable.PivotFields("Month")
            
    
    xStr = M = Worksheets("RNO").Range("CB2").Value
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

In the pivot table you must have a field with the name "Month"


Also change this line:

[COLOR=#333333]xStr = Worksheets("RNO").Range("CB2").Value[/COLOR]

 

[countryfan_nt]

thank you very much! But still, I am now getting:
unable to get the pivotfields property of the pivottable class
highlight on line: Set xPFile = xPTable.PivotFields("Month")

Your kind help please. Thanks again

 

[DanteAmor]

thank you very much! But still, I am now getting:
unable to get the pivotfields property of the pivottable class
highlight on line: Set xPFile = xPTable.PivotFields("Month")

Your kind help please. Thanks again

It works for me, you could upload a copy of your file to review it.
You can upload it to dropbox.com If it contains confidential data, you can change it to general data.