Assign New Number to First Blank row on open???

**Chewster** · 12-16-2010, 02:12 PM

OK I am trying to get a macro going where every time I open my spread sheet it goes to the next available row in column A and assigns it a new number, this number I want 1 number higher then the row above it

so basically like this

A1
304
305
306
307

ect.ect

but here is the catch it cant give out a new number unless it is saved, I have tried several things but I just cant get it to put a new number in the row directly below the last number entered every time I open the program... any suggestions??

**royUK** · 12-16-2010, 02:32 PM

What do you mean by not giving a number unless it's saved?


Option Explicit

Private Sub Workbook_Open()
    With Sheet1
        .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = .Cells(Rows.Count, _
                                                                    1).End(xlUp) + 1
    End With
End Sub

Thread: Assign New Number to First Blank row on open???

Thread Tools

Display

Assign New Number to First Blank row on open???

Re: Assign New Number to First Blank row on open???

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions