macro to delete a row based on criteria

A

aileen

I have a document with 6 columns of data and an unspecified number of rows.
I would like a macro to delete any row that has both columns 5 and 6 equal to
0. I would then need every other row to move up or down so there are no blank
rows.
 
J

JLGWhiz

Untested but should work.

Sub delRws()
Dim lr As Long, i As Long
lr = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
For i = lr To 2 Step -1
With ActiveSheet
If .Cells(i, 5) = 0 And .Cells(i, 6) = 0 Then
.Cells(i, 1).EntireRow.Delete
End If
End With
Next
End Sub
 
B

Bob Phillips

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1

If .Cells(i, "E").Value = 0 And .Cells(i, "F").Value = 0 Then

.Rows(i).Delete
End If
Next i
End With

End Sub
 
A

aileen

Both of those worked. Thanks so much.

Bob Phillips said:
Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1

If .Cells(i, "E").Value = 0 And .Cells(i, "F").Value = 0 Then

.Rows(i).Delete
End If
Next i
End With

End Sub

--
__________________________________
HTH

Bob
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top