VBA Delete Row if ....

[Pinaceous]

Hi All,

I'm working with a database where the first Column A's cell is not blank starting in row 11 of the worksheet.

I'm trying to create a Sub to delete the row if there are no values in the proceeding Column A.

For example, If Column A is not empty BUT its Columns B to AK are empty, the sub will delete that row.

Above there are values in Column A but if there are no values in that row from Columns B to AK, the sub will delete that row, as can be seen below.

So here the sub will delete the rows 15-16, 18-36 ...., because there were no values in that row from Columns B to AK, so the sub will delete that row.

Please let me know, if you can provide me with a sub to test out!

Thank you!
Pinaceous

 

[Cubist]

.

 

[Pinaceous]

Hi Pin
Did you try the code I posted ?
With regard to the code @Cubist posted, it will always have issues because you are running the loop from top to bottom, so it will skip rows when one is deleted. You must always loop from bottom to top when deleting rows

Hi Michael M!

My oversight my apologies! Yes, it works very well but do you know if you can delete the row specifically between A:AI, only and not the entire length of the row as I previously mentioned?
Other than that your code works great!

Thank you!
pinaceous

 

[Michael M]

Replace rows(r).delete
With
Range("A" & r & ":AI" & r).delete

 

[Pinaceous]

Replace rows(r).delete
With
Range("A" & r & ":AI" & r).delete

Thanks Michael M!

Let me take a look. It seems to run much better!