Is this what you want
For i = 2 To Cells(Rows.Count,"B").End(xlUp).Row
If Cells(i,"B").Value < "" Then
Cells(i,"A").Value = i - 1
End If
Next i
--
HTH
RP
(remove nothere from the email address if mailing direct)
"LoveCandle" wrote
in message ...
Hi all,
I use the following formula to get an Auto Serial Number for all cells
in column A.
Code:
--------------------
=IF(B2<"",ROW()-1,"")
--------------------
My question is how can I get an Auto Serial Number for all cells in
column A by using VBA.
I hope that my quesion is clear,
Thank you,
--
LoveCandle
------------------------------------------------------------------------
LoveCandle's Profile:
http://www.excelforum.com/member.php...o&userid=28612
View this thread: http://www.excelforum.com/showthread...hreadid=487565