VBA if filter has no data then

[Revathi Kannan]

Hi all,

Can someone assist me on the below.

> I need to filter the data in column B apart from blanks and delete the entire row.
> If no data found while filtering then i need to release the filters and move on to the next subroutine.

Please assist me that how to implement If condition in auto filter using VBA.

 

[r1998]

Hello Revathi Kannan

Sub a()
Dim r As Range
With Worksheets("code")
Range("$A$1:$BE$10").AutoFilter Field:=28, Criteria1:="<>"
Set r = Range("$A$1:$BE$10").SpecialCells(xlVisible)
If r Is Nothing Then
Call subroutine
Exit Sub
End If
End With
End Sub