If auto filter do not returns results to move to next filter criteria

[RedHawk1]

Hi, I have seen similar posts to this, but cannot figure out how it can relate to my situation. I have an auto filter that copies data from one sheet to another. However, when no auto filter results are listed, I would like it to skip the copying steps and go on to the next auto filter criteria.

Thanks in advance for your help!

[ByteMarks]

Might be enough to evaluate the number of visible rows.

'...
Selection.AutoFilter Field:=1, Criteria1:="=*" & Range("J1").Value & "*", Operator:=xlOr, _
Criteria2:="=*" & Range("K1").Value & "*"

If AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count -1 >0 then '-1 to discount the header row

Cells.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Data)").Select
Selection.AutoFilter
Sheets("Client").Select
ActiveCell.Offset(1, 0).Range("A1:B1").Select

End If

Next i
Else
MsgBox "Please enter a number!", vbInformation
GoTo Anf
End If

[RedHawk1]

Hi ByteMarks, Thank you very much for your response. I got the error message at the Range location stating that the argument is not optional. What is wrong? I then tried it without Range. But the macro stops after the first search.

If AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count -1 >0 then