Creating a Macro that will Delete if anything less than 20%

[Julienne]

Hi I wanted to know what the code would be to delete an entire row if
that cells column H is less than 20.0%. Then after that, if column I
is less than 20% delete those rows. I appreciate your help. Thanks

 

[Frank Kabel]

Hi
as a starting point:
http://www.xldynamic.com/source/xld.Deleting.html

 

[DMoney]

Try this out

Range("a1").Select
Do Until ActiveCell = ""

If ActiveCell.Offset(columnoffset:=11) < 0.2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(rowoffset:=1).Activate
End If

Loop

Range("A1").Select

Do Until ActiveCell = ""

If ActiveCell.Offset(columnoffset:=8) < 0.2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(rowoffset:=1).Activate
End If
Loop

 

[ICSAnalyst]

The code doesnt work because it loops and doesn't stop unless i hi
ctrl- break. not sure how to change

 

[Myrna Larson]

Have you posted the code (I can't find it...)? If not, please do so.

 

[scottymelloty]

Copy and paste this into a macro and run it

Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "H").Value <= 20 Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Su