Macro crashes since update of excel to v.2408.

[Saab95]

Hi all,

I seek your help again.

I have this VBA:
Sheets("Data_analysis").Select
Set pvFld = ActiveSheet.PivotTables("Data_analysis").PivotFields("Entered on")
strFilter = ActiveWorkbook.Sheets("MAIN").Range("C3").Value
pvFld.PivotFilters.Add2 xlCaptionEquals, , strFilter

It worked perfectly fine until today (excel v.2402 Build 17328.20612).

Now we upgraded to v.2408 (Build 17928.20216) and it crashes with "Run time error 1004 - application-defined or object-defined error"

Any idea why?

Thank you

 

[DanteAmor]

pvFld.PivotFilters.Add2 xlCaptionEquals, , strFilter

Remove number 2 and try like this:

pvFld.PivotFilters.Add xlCaptionEquals, , strFilter

Or try this approach:

Sub ver2()
  Dim pvFld As PivotField
  Dim strFilter As Variant
  Dim pItem As PivotItem
  Dim n As Long
  
  Sheets("Data_analysis").Select
  Set pvFld = ActiveSheet.PivotTables("Data_analysis").PivotFields("Entered on")
  strFilter = ActiveWorkbook.Sheets("MAIN").Range("C3").Value
  With ActiveSheet.PivotTables("Data_analysis").PivotFields("Entered on")
    .ClearAllFilters
    For Each pItem In .PivotItems
      If pItem <> strFilter Then
        n = n + 1
        If n < .PivotItems.Count Then
          pItem.Visible = False
        Else
          .ClearAllFilters
          MsgBox "The string does not exist"
        End If
      End If
    Next
  End With
End Sub

 

[Saab95]

Remove number 2 and try like this:

pvFld.PivotFilters.Add xlCaptionEquals, , strFilter

Or try this approach:

Sub ver2()
  Dim pvFld As PivotField
  Dim strFilter As Variant
  Dim pItem As PivotItem
  Dim n As Long
 
  Sheets("Data_analysis").Select
  Set pvFld = ActiveSheet.PivotTables("Data_analysis").PivotFields("Entered on")
  strFilter = ActiveWorkbook.Sheets("MAIN").Range("C3").Value
  With ActiveSheet.PivotTables("Data_analysis").PivotFields("Entered on")
    .ClearAllFilters
    For Each pItem In .PivotItems
      If pItem <> strFilter Then
        n = n + 1
        If n < .PivotItems.Count Then
          pItem.Visible = False
        Else
          .ClearAllFilters
          MsgBox "The string does not exist"
        End If
      End If
    Next
  End With
End Sub

Thank you for your reply.

Unfortunately, none of them work.

'Add' instead of 'Add2' gives the same error.

And for second option I get an error "Unable to set the visible property of the PivotItem class.