[SOLVED] Pass to Next Step in Macro if no cells are visible after filter

[mgnab]

Hello everyone.

New guy here.

I just started with this whole VBA thing and i've encountered a problem I cannot overcome by myself (yet, hopefully).


On my macro I have an autofilter that might give zero reults, meaning that when applied, there will be no cells visible.

If it happens i need to have the macro skip a couple of steps and continues to run in case the above situation occours.


This is the code:

Range("A1").Activate

Selection.AutoFilter Field:=6, Criteria1:=Array( _
"AB US"), Operator:=xlFilterValues

Selection.AutoFilter Field:=2, Criteria1:=Array( _
"<>-")


LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row


Range("A2:F" & LastRow).SpecialCells(xlCellTypeVisible).Copy

ActiveSheet.Paste Destination:=Workbooks(ActionLog).Sheets("Action Log").Range("D" & lastrow2 + 1)

Workbooks(ActionLog).Activate

LastRow3 = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row

Dim u As Integer

For u = lastrow2 + 1 To LastRow3

Range("C" & u).Value = "US Import"

Next u

lastrow4 = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

Range("B" & lastrow4).Select

Selection.AutoFill Destination:=Range("B" & lastrow4 & ":B" & LastRow3)

The bold line is where the macro crashes at the moment and I need it to continue and skip the steps after the bold line in case no cells are visible.

How can i do it?


Thanks in advance for the help!

[PaulM100]

Add an on error step: https://docs.microsoft.com/en-us/dot...rror-statement

[mgnab]

Perfect!

Thanks for the suggestion!