Delete row macro

  • Thread starter Thread starter Esrei
  • Start date Start date
E

Esrei

I need to delete a row in a spreadsheet if the value in
the last cell of the row is 0. With a macro
 
Hi
try the following macro:
Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, "Z").End(xlUp).Row
For row_index = lastrow - 1 To 1 Step -1
If Cells(row_index, "Z").Value= 0 then
Rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
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

Macro to delete rows if... 6
delete rows between tow inputs numbers 3
After Macro runs, no cell activated - what am I missing? 2
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
Delete rows using a macro 2
deleting rows with blank cells after a specified column? 3
Macro - Copy row base on criteria 3
VBA selction of rows using a variable 5

Back
Top