Posted to microsoft.public.excel.misc
|
|
Count rows and insert number to count them.
Sorry Don but I'm new at this. Do you mean that I need to type this all in as
one formula?
thx
"Don Guillett" wrote:
try
Sub countnonblanks()
lr = Cells(Rows.Count, "a").End(xlUp).Row
br = Range(Cells(1, 1), Cells(lr, 1)).SpecialCells(xlCellTypeBlanks).Count
MsgBox lr - br
End Sub
--
Don Guillett
SalesAid Software
"Mex" wrote in message
...
How do I get excel to automatically count the number of rows with data in
them and insert the row number in a colum. I don't want to count any blank
rows.
|