Delete rows with zero and #NUM!

Ete · Jun 8th 2016

Hi,

Ive been trying to write a macro that deletes only rows with zero, but I also want to delete #NUM! Errors. Is there a way to delete rows with 0 and #NUM! Starting from row A18:A392? And is it possible to do the macro for just the new sheets after using another macro that creates a new sheet from a template?

mrmmickle1 · Jun 12th 2016

Re: Delete rows with zero and #NUM!

This should delete cells with 0 and with Errors in Column A:

Code

Sub Test()




    Dim lr    As Long
    Dim LngLp As Long
    
    lr = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
    On Error Resume Next
    For LngLp = lr To 2 Step -1
        If IsError(Cells(LngLp, "A")) Or Cells(LngLp, "A") = 0 Then
            Rows(LngLp).Delete
        End If
    Next LngLp
    On Error GoTo 0
    
End Sub

Display More

Ete · Jun 13th 2016

Re: Delete rows with zero and #NUM!

Thank you!!!

mrmmickle1 · Jun 14th 2016

Re: Delete rows with zero and #NUM!

You're welcome. Glad you got everything straightened out.

Delete rows with zero and #NUM!

Participate now!

Share