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. Download Lagu Naruto Opening 14 Tsuki No Okisa here. Rocksmith Pc Crack there. Offset(0, -1).Value = i + 1 i = i + 1 Next cell End Sub 'LoveCandle' wrote in message news. >>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: >>View this thread:. 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 news.

VBA code to auto serial number in column A after my userform entered data in column B. EXCEL VBA Code to generate serial numbers from a range. Generate invoice numbers in Excel. Generate the next invoice number. Sub NextInvoice(). Check out Get started with VBA in Excel 2010. Excel-Macro to fill serial numbers to filtered data. Data in Column A. Be advised that the number of rows in. Tagged excel vba excel-vba ms-office or ask.

>>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. Buffalo Drivers Nintendo Wifi Usb Connector. >>I hope that my quesion is clear, >>Thank you, >>>-- >LoveCandle >------------------------------------------------------------------------ >LoveCandle's Profile: >View this thread:.