Vba for Autonumber

**Anto_BT** · 08-20-2016, 04:40 AM

Formula:

Private Sub insert_Click()



Dim emptyRow As Long



emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1



Cells(emptyRow, 2).Value = NameBox.Value

I have this VBA code and I wan in A so here

Formula:

Cells(emptyRow, 1).Value =

to start numbering from 1 and so on

**davesexcel** · 08-20-2016, 08:31 AM

Sub Number()
    Dim rng As Range
    Dim c As Range, s As String

    Set rng = Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
    s = 1

    For Each c In rng.Cells
        c.Offset(, 1) = s
        s = s + 1
    Next c

End Sub

Vba for Autonumber

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Vba for Autonumber

Re: Vba for Autonumber

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Autonumber

[SOLVED] Trying to autonumber

[SOLVED] Autonumber

Autonumber

autonumber service doc

lookup and autonumber

Autonumber in a cell

[SOLVED] autonumber

Bookmarks

Bookmarks

Posting Permissions