Check if filtered cells contain data to delete

[Les Stout]

Hi all, I need a bit of help with code for the following. I am filtering
a column for certain criteria and i need to check if the other cells in
the filtered visual cells contain data, if no data continue with code
else delete rows visable only.

Selection.AutoFilter Field:=9, Criteria1:="=*za-t-m-**", Operator:=xlAnd


Les Stout

 

[Dave Peterson]

With Worksheets("sheet1")
If .AutoFilter.Range.Columns(1).Cells.SpecialCells(xlCellTypeVisible) _
.Count = 1 Then
'Only headers
MsgBox "nothing to delete"
Else
With .AutoFilter.Range
.Resize(.Rows.Count - 1).Offset(1, 0).EntireRow.Delete
End With
End If
End With

 

[Les Stout]

Thanks a lot Dave,

I will give it a bash in the morning and let you know..

Les Stout

 

[Les Stout]

Thank you Dave Peterson, your solution worked 100%, thanks.

Les Stout