Thread: Deleting a row if it contains the right criteria

you dont say which column to look at so you can adjust this yourself!

Sub Del_If_under_30()
'Code supplied by Simon Lloyd
'19/11/2010
'Microsoft Office Help
'Excel Conference Poll
Dim rRow As Double, i As Double

rRow = Range("A" & Rows.Count).End(xlUp).Row
For i = rRow To 1 Step -1
    If Range("A" & rRow).Value < 30 Then
        Rows(rRow).EntireRow.Delete
    End If
Next i
End Sub

Originally Posted by lakshithaw

With this one you can do the action for any selection of yours...

Option Explicit
 
 
Sub delete()
Dim dvalue As Double
Dim cell As Range
 
 
For Each cell In Selection
 
    If ActiveCell.Value < 30 Then
        ActiveCell.EntireRow.delete
        ActiveCell.Offset(-1, 0).Activate
    End If
 
        ActiveCell.Offset(1, 0).Activate
        Next cell
 
End Sub

You will have lots of problems if you choose to do it this way, firstly selecting or activating all the time will slow excel down and is not necessary, secondly you should always delete from the bottom up