This Used to Work ...

[Philip1957]

Greetings,

I have this code to set pivot filters that used to work until about a month ago and it's driving me crazy.

Private Sub SetFilter16()

Dim PI As PivotItem
Dim v As Variant
Dim r As Range
Dim pf As PivotField
    
With Worksheets("Pivot Filters")
        Set r = .Range(.Range("D2"), .Cells(.Rows.Count, "D").End(xlUp))
    End With
    
For Each PI In Worksheets("Pivots").PivotTables("Piv16_").PivotFields("Date Conc").PivotItems
        PI.Visible = True
    Next PI
    
For Each PI In Worksheets("Pivots").PivotTables("Piv16_").PivotFields("Date Conc").PivotItems
        v = Application.Match(PI.Name, r, False)
        If IsError(v) Then PI.Visible = False
    Next PI

End Sub

When it gets to

If IsError(v) Then PI.Visible = False

I get an error saying "unable to set the Visible property of the Pivot Class.

What on earth changed?

Thanks in advance for any assistance.

~ Phil

 

[JEC]

You could give this a try

Sub jec()
  r = Sheets("Pivot Filters").Range("D2", Sheets("Pivot Filters").Cells(Rows.Count, "D").End(xlUp))
  With ActiveSheet.PivotTables("Piv16_")
    .ClearAllFilters
      For Each it In .PivotFields("Date Conc").PivotItems
         v = Application.Match(Val(it.Name), r, 0)
         If IsError(v) Then it.Visible = False
      Next it
  End With
End Sub

 

[Philip1957]

Never mind.

Once of my external data sources got changed without my knowledge.
I fixed the query and now my code runs fine.