VBA Delete Rows If All Specific Columns Are Blank

[hobbiton73]

Hi, I wonder whether someone may be able to help me please.

I'm trying to put together a small script which deletes rows if the cells in columns D:Q are blank starting at row 8.

I thought I'd found a solution here http://stackoverflow.com/questions/1...-columns-empty which I could then adapt.

Please Login or Register  to view this content.

The problem I have is that I'm a little unsure how to start from row 8 and the code currently deletes rows where any cell is blank whereas I would like the condition to be where columns D:Q are all blank.

I just wondered whether someone may be able to look at this please and offer some guidance on how I may go about achieivng this.

Many thanks and kind regards

[JosephP]

maybe

Please Login or Register  to view this content.

[jewelsharma]

If there is any data in any cell between Column D & Column Q of the 1st row, then the following would return FALSE

Please Login or Register  to view this content.

using this, we can try:

Please Login or Register  to view this content.

[millz]

Try:

Please Login or Register  to view this content.

[adyteo]

Try this (I assume that column A contains values until the end of range):

Please Login or Register  to view this content.

[hobbiton73]

Hi @JosephP, thank you very much for taking the time to reply to my post and for putting the code together which is exactly what I was after.

All the best and kind regards

[hobbiton73]

Hi @jewelsharma, thank you for taking the time to reply to my post and for putting together the solution.

The only very slight drawback was that I would need to amend the code to take into account a changing end row, whereas I was looking for this to be calculated automatically as per the solution from @JosephP.

All the best and kind regards

[hobbiton73]

Hi @millz, thank you for taking the time to reply and provide the code which works great.

All the best and kind regards

[hobbiton73]

Hi @adyteo, thank you for taking the time to come back to me with this and for the code you kindly provided which works great.

All the best and kind regards