Find and Delete Rows

[sachavez]

Need VBA to cycle through rows and delete entire row if the following conditions are met:

Column E (Length) = 20
Column H (Weight) >42000

Data set is always different.

Thanks in advance!

 

[VoG]

Try

Sub ctest()
Dim LR As Long, i As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("E" & i).Value = 20 And Range("H" & i).Value > 42000 Then Rows(i).Delete
Next i
End Sub

 

[sachavez]

VoG,

Works like a champ! Thanks for the quick and excellent solution.

Steve