Macro to delete entire row if a cell in column m has number zero.

[sara2009]

Hi everyone,,
IN great need of a code to delete ENTIRE ROW if a cell in COLUMN M has number 0.
my range is from row 2 to row 3745, and there is blank row every after 34 rows. for example there is data from ROW 2 TO ROW 35 then there is blank row and so on.

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("M" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 1 Step -1
    If Range("M" & i).Value = 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[nuked]

Option Explicit
Sub DeleteRow()
Dim i As Integer
For i = 3745 To 2 Step -1
    If Not IsEmpty(ActiveSheet.Cells(i, 13)) And _
        ActiveSheet.Cells(i, 12) = 0 Then ActiveSheet.Cells(i, 13).EntireRow.Delete
    
Next i
End Sub

This won't delete your empty rows.

 

[sara2009]

HELOO mrexcelMVP it worked but it deleted ALL my empty rows... please give me a code that will not delete my empty rows. i just need a code to delete rows with a number 0 in column M..

 

[VoG]

Sorry, try

Sub test()
Dim LR As Long, i As Long
LR = Range("M" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 1 Step -1
    If Range("M" & i).Value = 0 And Range("M" & i).Value <> "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[nuked]

Option Explicit
Sub DeleteRow()
Dim i As Integer
For i = 3745 To 2 Step -1
    If Not IsEmpty(ActiveSheet.Cells(i, 13)) And _
        ActiveSheet.Cells(i, 12) = 0 Then ActiveSheet.Cells(i, 13).EntireRow.Delete
    
Next i
End Sub

This won't delete your empty rows.

^^^^^^^^^^^^^^^^^^^^^

 

[sara2009]

heloo nuked thanks,but i inserted the code nothing happend.....no row was deleted ..please help me fix it.

 

[VoG]

See my revised code http://www.mrexcel.com/forum/excel-...ell-column-m-has-number-zero.html#post3454097

I think Nuked's code is looking at column L.

 

[nuked]

I ran out of fingers :/

 

[sara2009]

It workedd...thankss alott really appreciate it mr mvp!!