add 1 to an invoice no. everytime its opened

[chuf]

I've read the answer to this on here before but i can't find it.
Sorry.

If I want to open a template for an invoice.. and each time its opened i want it to add 1 to the invoice number to make an automatically sequential system. could someone tell me how to do it please ?
i think it was a vba code.

also would the spreadsheet need to be saved each time, say it was a template and you wanted to use different details everytime therefore you'd be resaving it as something else anyway, how would this work ?

thanks guys.

 

[VoG]

Try

Sub Auto_Open()
Range("A1").Value = Range("A1").Value + 1
End Sub

change A1 to suit.

 

[chuf]

top man.

superb

 

[chuf]

oops,

i'm a newbie so i must be doing something wrong.

just tried this..

i opened up new spreadsheet posted this code into the view code function on tab then imput number into a1.

closed , reopened and it didn't move on.

what am i doing wrong please ? do i need to specify the spreadsheet name in the code somewhere.

thanks

 

[VoG]

ALT + F11 to open the Visual Basic Editor. Insert > Module, copy the code and paste it in. Close the VBE. Now each time you open the workbook A1 should increment by 1. You have to remember to save it of course. You may want to amend the code to look at a specific sheet:

Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1

 

[Smitty]

Just a note that Workbook_Open is preferred over Autpen in versions '97 and up.

In which case it's:

Private Sub Workbook_Open()
  '  Code here
End Sub

The code goes in the ThisWorkbook module.

HTH,

Smitty