Auto number

[niecie]

I am creating a transmittal form for a client. One of the features they would like in the form is to have the form change in increments of 1 everytime the form is opened. For example, the form is like an invoice. So they want the cell in which the "invoice number" resides to change everytime the form is opened. Can you help?

 

[Oaktree]

How about storing the value in some hidden, unused cell?

Then, code similar to this msgbox example might work:

Sub box()
Sheets("sheet1").Range("z1") = Sheets("sheet1").Range("z1").Value + 1
MsgBox "This is number "&Sheets("sheet1").Range("z1").Value , vbOKOnly, "Invoice #" & Sheets("sheet1").Range("z1")
End Sub

 

[JPM]

What you can do is to add the following code to the sheet (not a module)

Private Sub Worksheet_Activate()
Invoice = Range("I3").Value + 1 'if the invoice number is in cell I3
Range("I3").Formula = Invoice
End Sub

The only problem with this is that it will update the number everytime it is activated. So if you want to look at the same invoice again in a few days, it will update itself again.

JPM

 

[JPM]

You could however disable the macro when you reopen the file, which then would not change the number.

JPM