deleting rows with blank cells after a specified column?

M

MYR

Hello. I have a question regarding row deletion. Is there a macro
that allows me to delete entire rows if all cells beyond a specified
column are blank?

For example, if cells in row 5 are all blank after column C, how do I
delete that entire row (and all rows like that in the entire
spreadsheet)? If there is data in any one or more cells after column
C, I do not wish to remove that row. I appreciate your help.
 
D

Don Guillett

This should do it. I have included line continuatin character (space and
underscore) for one lines

Sub countcplus()
lr = Cells.Find("*", Cells(Rows.Count, _
Columns.Count), , , xlByRows, xlPrevious).Row
For i = lr To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft).Column _
< 4 Then Rows(i).Delete
Next i
End Sub
 
M

MYR

This should do it. I have included line continuatin character (space and
underscore) for one lines

Sub countcplus()
lr = Cells.Find("*", Cells(Rows.Count, _
Columns.Count), , , xlByRows, xlPrevious).Row
For i = lr To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft).Column _
< 4 Then Rows(i).Delete
Next i
End Sub
Click to expand...

Yes! That worked perfectly. Thanks for your time.
 
D

Don Guillett

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
[email protected]
This should do it. I have included line continuatin character (space and
underscore) for one lines

Sub countcplus()
lr = Cells.Find("*", Cells(Rows.Count, _
Columns.Count), , , xlByRows, xlPrevious).Row
For i = lr To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft).Column _
< 4 Then Rows(i).Delete
Next i
End Sub
Click to expand...

Yes! That worked perfectly. Thanks for your time.
 
Top