delete entire row if cell value in colum = 0

  • Thread starter Thread starter amanda
  • Start date Start date
A

amanda

Hello,

I'm trying to deleta a row if the cell value in column D is zero.

Thanks!
 
Something like this maybe...

Sub RemoveZeroRowsFromColumnD()
Dim X As Long
For X = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(X, "D").Value = 0 Then
ActiveSheet.Cells(X, "D").EntireRow.Delete
End If
Next
End Sub

You can change the ActiveSheet reference to a specific sheet reference if
that is your need.

Rick
 
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

Hide / Unhide each row from StartRow to LastRow for multiple conditions 6
Combine three InputBoxes into one? 7
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
InputBox for column letter problem 2
Deleting rows when cell has "#DIV/0!" error 2
Help with macro to delete rows 10
macro to highlight rows that meet specific conditions 1
How to write a macro to hide an entire row 9

Back
Top