Thread
:
Non blank cells
View Single Post
#
3
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Non blank cells
cells uses row, column
range uses a,1
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"MrRJ" wrote in message
...
Thanks Don,
If I wanted to change the column to B, it would be Cells(2,1), right?
Thanks.
"Don Guillett" wrote:
Try this approach
Sub deleterowsbelowfirstblankcell()
fbr = Cells(1, 1).End(xlDown).Row + 1
'MsgBox fbr
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
'MsgBox lr
Rows(fbr).Resize(lr - fbr).Delete
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"MrRJ" wrote in message
...
Hello,
I need you help in resolving my error code. I would like to find the
first
blank cell in colume A and then delete everything below it.
I tried this and it did not work.
Range(Range("A65536").End(xlUp)(2), Range("A65536")).EntireRow.Delete
Help is much appreciated.
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett