VBA - Autofilter stops when criteria is missing

[auggie24]

Hi all, newish to VBA, but picking up quickly. Sometimes the value in the filter is not in the data, and causes my vba to bug out on me. I commented it out, but would like to write something that would allow the code to finish by ignoring the criteria if it is unavailable.

With ActiveSheet.PivotTables("PivotTable5").PivotFields("SD Delivery Block")
'        .PivotItems("89").Visible = False                       commented out due to failure
'        .PivotItems("91").Visible = False
'        .PivotItems("92").Visible = False
'        .PivotItems("93").Visible = False
'        .PivotItems("94").Visible = False
'        .PivotItems("95").Visible = False
'        .PivotItems("97").Visible = False
'        .PivotItems("CR").Visible = False
'        .PivotItems("(blank)").Visible = False

 

[Yongle]

(Untested with PivotItems but it usually does the job with most things ) Try inserting this line immediately above With ActiveSheet...

On Error Resume Next

and inserting this immediately below End With

On Error GoTo 0

VBA ignores all errors in between the 2 statements. The 2nd statement resets things ensuring that further errors are highlighted.

 

[auggie24]

That worked like a charm! Thank you!

 

[Yongle]

thanks for the feedback