delete row if 2 cells are empty

  • Thread starter Thread starter Wanna Learn
  • Start date Start date
W

Wanna Learn

Hello I get a daily report and I have to delete the entire row if cell AA
and Cell AB are empty. staring from row 4 till the end. I have been doing
this manually but is there a VBA code that would make this faster. thanks
in advance
 
Unless aa a/o bb populated with a space bar this should do it.

Sub delrowsifaaempty()
lr = Cells.find(What:="*", After:=[A1], _
SearchDirection:=xlPrevious).Row
For i = lr To 4 Step -1
If Cells(i, "aa") = "" And Cells(i, "ab") = "" Then Rows(i).Delete
Next i
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

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 empty rows 1
delete row if cell value = 4
Delete row if all cells are blank, Excel 2000 & 2003 1
if+delete row 2
I can only delete an entire row not a cell in excel 2013? 1
Excel Visual Basic to get current row number 1
Delete row with empty cell in column 3

Back
Top