Deleting Row Macro
On Thu, 20 Apr 2006 08:02:35 -0500, Steve M
wrote:
I have a spread sheet with data in A:A to G:G
I want a macro that will check the value in G and if its less than 3 to
delete that entire row and then move on to the next row and do the same
One way.
First name the first cell in column G of your data as "StartRow"
I'm also assuming that there is something in all the cells in column
G. If not you'll need to change the lrows variable to something like
lrows=Range(Range("Startrow"),Range("G65536").End( xlUp)).Rows.Count
Sub DeleteGRowValue3()
Dim lRows As Long, x As Long
lRows=Range(Range("Startrow"),Range("Startrow").En d(xlDown)).Rows.Count
For x = lRows To 1 Step -1
If Range("startrow").Offset(x - 1, 0) < 3 Then
Range("startrow").Offset(x - 1, 0).EntireRow.Delete
End If
Next
End Sub
__
Richard Buttrey
Grappenhall, Cheshire, UK
__________________________
|