Delete a row when cell value equals zero macro

[Massedamha]

hi all ,
i have and excel sheet which is a compilation of various sheets copied from different sources . i want to delete the rows where their cells in column e equals zero starting from e3 as e2 has a zero value i want to keep.
the sheet that contains that column is named "all data"
thanks a lot and best regards,

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
With Sheets("all data")
    LR = .Range("E" & Rows.Count).End(xlUp).Row
    For i = LR To 3 Step -1
        If .Range("E" & i).Value = 0 Then .Rows(i).Delete
    Next i
End With
End Sub

 

[Oeldere]

Try this one on a copy of your file.

Sub DeleteValueWith_0_in_column_E()
Dim r As Long
For r = Cells(Rows.Count, 5).End(xlUp).Row To 3 Step -1
If Cells(r, 5) = "0" Then Rows(r).Delete
Next r
End Sub

 

[Massedamha]

Thanx alot it worked :D i am so gratefull

Try this one on a copy of your file.

Sub DeleteValueWith_0_in_column_E()
Dim r As Long
For r = Cells(Rows.Count, 5).End(xlUp).Row To 3 Step -1
If Cells(r, 5) = "0" Then Rows(r).Delete
Next r
End Sub

 

[Massedamha]

and this code also worked thanks alot guys for the help

Try

Sub test()
Dim LR As Long, i As Long
With Sheets("all data")
    LR = .Range("E" & Rows.Count).End(xlUp).Row
    For i = LR To 3 Step -1
        If .Range("E" & i).Value = 0 Then .Rows(i).Delete
    Next i
End With
End Sub

 

[Oeldere]

Glad i could help.

Thanks for the reply.

 

[Oeldere]

It would be nice if you told us, you also asked you question somewhere else (crossposting).

Delete a row when cell value equals zero macro

 

[VoG]

Oh dear! Please read Excelguru Help Site - A message to forum cross posters