Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Serial Number Using VBA
Hi all, I use the following formula to get an Auto Serial Number for all cell in column A. Code ------------------- =IF(B2<"",ROW()-1,"" ------------------- My question is how can I get an Auto Serial Number for all cells i column A by using VBA. I hope that my quesion is clear, Thank you -- LoveCandl ----------------------------------------------------------------------- LoveCandle's Profile: http://www.excelforum.com/member.php...fo&userid=2861 View this thread: http://www.excelforum.com/showthread.php?threadid=48756 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Serial Number Using VBA
Here's one way: (In a standard module)
Sub Foo() Range("B2").Select lrow = Cells(Rows.Count, 2).End(xlUp).Row Set myrange = Range(Cells(2, 2), Cells(lrow, 2)) For Each cell In myrange cell.Offset(0, -1).Value = i + 1 i = i + 1 Next cell End Sub "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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Serial Number Using VBA
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Serial Number | Excel Worksheet Functions | |||
Look up part of a number within a serial number and cpy back assoc | Excel Worksheet Functions | |||
macro to add an auto serial number column | Excel Discussion (Misc queries) | |||
Auto Serial No | Excel Discussion (Misc queries) | |||
Insert auto serial number in Excel template | Excel Programming |