Delete Rows

ks1102 · February 12th, 2009, 11:24 PM

Hi

I have code made as below to wanted delete the Row if COL C which cell Value < 20.

Can u help me to modify or learnt me abt thatâs

Thanks

Sub DeleteRows()

Columns("C:C").SpecialCells(xlCellTypeBlanks).Enti reRow.Delete

End Sub

Shasur · February 13th, 2009, 02:23 AM

You can try something like the following:

Code:

Sub Delete_Rows_LEssThan20()

Dim iRow
Dim iMaxRow
iMaxRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For iRow = 1 To iMaxRow
    If iRow > iMaxRow Then Exit Sub
    If Val(ActiveSheet.Cells(iRow, 3).Value) < 20 Then
        Rows(iRow).EntireRow.Delete
        iRow = iRow - 1
        iMaxRow = iMaxRow - 1
    End If
Next iRow
End Sub

Cheers
Shasur

ks1102 · February 13th, 2009, 03:13 AM

Thanks you so much

Thanks