unknownymous
Board Regular
- Joined
- Sep 19, 2017
- Messages
- 249
- Office Version
- 2016
- Platform
- Windows
Hello Gurus,
Good day!
Could you possibly help me tweak the code below? Scenario is I have to delete the data that is below 500 including blanks and zeroes in Column E. Headers is located in Row A
Sub DeleteRowIF()
Dim zlr As Long
zlr = ActiveSheet.UsedRange.rows.Count
With Range("A2:AZ" & zlr)
.AutoFilter
.AutoFilter Field:=5, Criteria1:="<500"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
Appreciate the help.
Good day!
Could you possibly help me tweak the code below? Scenario is I have to delete the data that is below 500 including blanks and zeroes in Column E. Headers is located in Row A
Sub DeleteRowIF()
Dim zlr As Long
zlr = ActiveSheet.UsedRange.rows.Count
With Range("A2:AZ" & zlr)
.AutoFilter
.AutoFilter Field:=5, Criteria1:="<500"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
Appreciate the help.
