Invoicing #'s and templates

[jody2]

Is there a formula out there that will increase the invioce number everytime you open a template? With the following code the invoice number will only increace if I go to the saved as invoice. I need something that will allow me to save that invoice and when I back to the template incraese the number by one.
Range ("I2") . Value = Range(I12") . Value + 1 PLS HELP Jody

 

[PaddyD]

something of the general form:

<pre>

Private Sub Workbook_Open()
Sheets("Directory").Activate
Range("A1").Value = Range("A1").Value + 1
End Sub


</pre>

should do it. see:


http://216.92.17.166/board/viewtopic.php?topic=23757&forum=2

for other options...

Paddy

 

[imported_unknown]

I was looking for this same solution. I did as described and it works fine when I run the script in the Visual Basic Editor, but when I close and open the file it does not work (add one to the invoice number.) Any suggestions?

 

[PaddyD]

works for me!

did you:

a) change the "directory" to a sheet name appropriate for your workbook?
b) put the code in the thisworkbook area?

Paddy

 

[jody2]

Paddy,
I went to the site you refered me to... IT WORKED! Thank you very much
Range("I2").Value=Range("I2").Value+ 1
ActiveWorksheet.Save

 

[imported_unknown]

Below is the code I have for the WorkSheet M&L Sheet and it doesn't work. The script works fine if I run it from the VB Editor but the invoice number does not increase ever time I open the file. Any help is appreciated.

Private Sub Workbook_Open()
Range("H4").Value = Range("H4").Value + 1
ActiveWorkbook.Save
End Sub

 

[imported_unknown]

This was my mistake, I was puting the code in the actually worksheet instead of the workbook. Thanks for everyones help!