MACRO TO DELETE ROW IF CELL VALUE IS ZERO

K

K

I need macro which should go through in column "E2:E" of sheet
("DATA") and if finds any cell value = 0 then it should delete that
entire row. Note that I have heading in cell "E1"
 
O

Office_Novice

Somthing Like


Sub DeleteZero()

Worksheets("Data").Activate
Range("E2").Select

Do
If ActiveCell.Value = "0" Then
ActiveCell.EntireRow.Delete Shift:=xlShiftUp
ElseIf ActiveCell.Value <> "0" Then
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
 

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

Similar Threads

DELETE CELL OF ZERO VALUE 2
Deleting duplicated rows based on data in two columns 5
Cell to Row 9
DELETE DEBIT AND CREDIT FIGURES ROW BY MACRO 7
For-Next by a row Counting consecutive Zero in the column 4
Create if partial match then copy and paste data from one cell to another 1
Delete Row Macro 1
Delete Entire row if value don’t match 3

Top