Deleting a row based on criteria

[ukkz001]

I'm trying to write a macro that will delete the row if both columns M and N are equal to 0.00.

I also need the macro to look through each line of data until the criteria is met.


Thanks,
Kevin

 

[Von Pookie]

One way:

Sub DeleteRows()
Dim i As Long, Lastrow As Long

Lastrow = Range("M65536").End(xlUp).Row

For i = Lastrow To 1 Step -1
    If Cells(i, "M").Value = 0 And Cells(i, "N").Value = 0 Then
        Rows(i).Delete
    End If
Next i

End Sub

 

[ukkz001]

I couldn't figure out how to have it look in both M and N columns.
This is what I was using:

Range("M1:N1").Select
Do Until IsEmpty(ActiveCell.Value)
If ActiveCell.Value = "0.00" Then
ActiveCell.Row.Delete
Else 'Do nothing
'Move down one cell
ActiveCell.Offset(1, 0).Select
Loop

I will try your code.

Thanks,
Kevin

 

[Von Pookie]

To be honest, you would run into problems with your code other than trying to check both M and N.

If you loop through the rows from 1 down and delete rows during that, the code will end up skipping over some rows and not checking them at all.

What I posted looks from the last row up, so when a row is deleted it does not affect the loop.

 

[ukkz001]

Good point. I didn't think of that.
Thanks a lot for your help.


Kevin