Auto Numbering

[vijay2482]

i have a worksheet with few rows..
in column B i want to number the rows from 1 to n...

how to achieve this???

thanks in advance

 

[Yard]

Maybe

=ROW()

 

[tekkiegurl]

you could write 1 to 3 on the 3 rows then highlight the it and drag it down.

 

[vijay2482]

thanks for the replies..

how to obtain the result using macro???

 

[Yard]

ADVERTISEMENT

How far down do you want to number? To number column B until the last entry in column A:

Sub AutoNum()
 
Dim rngStart, rngC As Range
 
Set rngStart = Range(Cells(1, "B"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "B"))
 
Application.ScreenUpdating = False
 
For Each rngC In rngStart
    rngC.Value = rngC.Row
Next rngC
 
Application.ScreenUpdating = True
 
End Sub

 

[vijay2482]

thanks...
your code works fine...
it enters the number of the row...

i want the numbers from 1 to n to be entered in column B starting from row 4

i did a small modification to ur code and got the result in column B line number starting from 4...

i want it to start at 1 in column B row 4

Sub AutoNum()
Dim rngStart, rngC As Range
Set rngStart = Range(Cells(4, "B"), Cells(Cells(Rows.Count, "A").End(xlUp).row, "B"))
Application.ScreenUpdating = False
For Each rngC In rngStart
    rngC.Value = rngC.row
Next rngC
Application.ScreenUpdating = True
End Sub

 

[Yard]

Sub AutoNum()
Dim rngStart, rngC As Range
Set rngStart = Range(Cells(4, "B"), Cells(Cells(Rows.Count, "A").End(xlUp).row, "B"))
Application.ScreenUpdating = False
For Each rngC In rngStart
    rngC.Value = rngC.row-3
Next rngC
Application.ScreenUpdating = True
End Sub

 

[vijay2482]

thanks a lot..............

that works perfect..
u r a genious

thank you once again for helping...