I hope that someone can help me...I have a blank invoice that I send out with about twenty drivers. I am needing a new invoice number to appear after each print. (So that I have twenty consecutive invoice numbers). I have this invoice sent up in Excel. Any help is appreciated. Thank you in advance.
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Invoice numbers
- Thread starter mrspigman
- Start date
Joe Was
MrExcel MVP
- Joined
- Feb 19, 2002
- Messages
- 7,539
This is a question that is asked often. At the top of this page is a "Search" link. It helps to check if your question has been asked before!
Try this link:
http://www.mrexcel.com/board2/viewtopic.php?t=102878&highlight=invoice
I use this one:
Private Sub Workbook_Open()
'Place this code in the "ThisWorkbook" Module
'to increment on the opening of the workbook.
'Sub Worksheet_Activate()
'Use the "Activate" Sub in a Sheet Module
'to increment on a sheet selection.
[A3].Value = [A3] + 1
ActiveWorkbook.Save
MsgBox "Each time this sheet is opened" & Chr(13) & "the starting number is increased." _
& Chr(13) & "And this blank template is saved" & Chr(13) & _
"with the new starting number!" & Chr(13) & Chr(13) & _
"Please, save any added data" & Chr(13) & "with a new file Name!" & Chr(13) & Chr(13) & _
"To preserve system integrity" & Chr(13) & "follow these directions!"
End Sub
Try this link:
http://www.mrexcel.com/board2/viewtopic.php?t=102878&highlight=invoice
I use this one:
Private Sub Workbook_Open()
'Place this code in the "ThisWorkbook" Module
'to increment on the opening of the workbook.
'Sub Worksheet_Activate()
'Use the "Activate" Sub in a Sheet Module
'to increment on a sheet selection.
[A3].Value = [A3] + 1
ActiveWorkbook.Save
MsgBox "Each time this sheet is opened" & Chr(13) & "the starting number is increased." _
& Chr(13) & "And this blank template is saved" & Chr(13) & _
"with the new starting number!" & Chr(13) & Chr(13) & _
"Please, save any added data" & Chr(13) & "with a new file Name!" & Chr(13) & Chr(13) & _
"To preserve system integrity" & Chr(13) & "follow these directions!"
End Sub
Upvote
0
Tazguy37
MrExcel MVP
- Joined
- May 28, 2004
- Messages
- 4,237
Marc's post in http://www.mrexcel.com/board2/viewtopic.php?t=106808 is a good one also. Hope that helps!
Upvote
0
Smitty
Legend
- Joined
- May 15, 2003
- Messages
- 29,536
Welcome to the Board!
Here's a simple one that will print your Invoice and then increment the number:
<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> PrintandIncrement()
ActiveSheet.PrintOut
<SPAN style="color:#007F00">' Change sheet name and Range to suit</SPAN>
Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value + 1
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
Just assign it to a button and you'll be good to go.
Hope that helps,
Smitty
Here's a simple one that will print your Invoice and then increment the number:
<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> PrintandIncrement()
ActiveSheet.PrintOut
<SPAN style="color:#007F00">' Change sheet name and Range to suit</SPAN>
Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value + 1
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
Just assign it to a button and you'll be good to go.
Hope that helps,
Smitty
Upvote
0
