how to make code skip if is blank row?

[jaik22]

Sub Practicereport()
Dim markdata As String: markdata = Sheets("Main").Range("C1").Value
Dim lastrow As String: lastrow = Sheets("Data3").Range("A1000000").End(xlUp).Row
Sheets("Data3").Select
    Range("A1:B1").Select
    Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$" & lastrow).AutoFilter Field:=2, Criteria1:= _
        "<" & markdata, Operator:=xlAnd
Range("B2:B" & lastrow).SpecialCells(xlCellTypeVisible).Select
On Error Resume Next
Selection = "NG"
ActiveSheet.ShowAllData

End Sub

The code is looking at the main page's value(markdata) and then filter with markdata on A and B columns in data3 sheet, then put NG in B column cells if markdata exist in A column.
This code works fine when I have data after filtering, but if I do not have data after filtering, it gives me an error.
Is there any way to skip code, if filter is blank?

Thank you!

 

[Joe4]

So, if there is no data, shouldn't lastrow return 1?
If so, then just add this line after the lastrow calculation:

If lastrow=1 Then Exit Sub

 

[jaik22]

Thanks for the tip Joe4,

Is there any way to go next code, rather than exiting the sub?

 

[Joe4]

Sure. Just use an and IF... THEN block, and put all your filter code between it, i.e.

If lastrow > 1 Then
'   Filter code here
End If

Then if lastrow is equal to 1, it will just skip what is in that block and go to the next section of code.

 

[JoeMo]

For a quick fix, relocate the error redirect like this:

Sub Practicereport()
Dim markdata As String: markdata = Sheets("Main").Range("C1").Value
Dim lastrow As String: lastrow = Sheets("Data3").Range("A1000000").End(xlUp).Row
Sheets("Data3").Select
    Range("A1:B1").Select
    Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$" & lastrow).AutoFilter Field:=2, Criteria1:= _
        "<" & markdata, Operator:=xlAnd
On Error Resume Next
Range("B2:B" & lastrow).SpecialCells(xlCellTypeVisible).Select
If Err.Number = 0 Then
       Selection = "NG"
End If
On Error GoTo 0
ActiveSheet.ShowAllData
End Sub

 

[jaik22]

Thanks guys for the support! It works fine now