Macro that deletes rows with "0" value cells

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

I have several worksheets with data. I'd like to specify a column and
wherever there is a 0 value in that column, the macro will delete the whole
row it is in. The column to look for the 0 in is different in each of my
worksheets so somehow i have to specify which one it is to the macro
beforhand.

any help aprecciated,

Steven.
 
Try this

Sub m()
colabel = InputBox("column label ?")
lrow = Cells(Rows.Count, colabel).End(xlUp).Row
For i = lrow To 1 Step -1
If Cells(i, colabel) = 0 Then Rows(i).Delete
Next i
End Sub
 
You must log in or register to reply here.

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

Excel 2013 Merge Data 2
Converting a “Delete Column” Macro to a “Delete Row” Macro 7
Excel Macro for deleting Rows containing dates greater than "today" 0
VBA - Run same logic on values in columns 2 & 3 0
Comparing Rows 9
Excel VBA 1
Excel Copy cells from one worksheet to another workseet - increment row & do again 0
fill in data that is not empty 1

Back
Top