-
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 Bigslim
- Start date
Akashwani
Well-known Member
- Joined
- Mar 14, 2009
- Messages
- 2,911
Hi Bigslim.
Try this code.....
This will increment the value (invoice number) in Sheet1 cell A1.
You will need to change Sheet1 A1 and Your Password Here to suit your Worksheet.
To apply this code to your workbook...
Press alt F11
On the right hand side of the Window, click on your workbook name, click Microsoft Excel Objects, double click This Workbook and past the above code into the white area. Press alt F11, save your workbook, close and reopen it.
I hope that helps.
Ak
Try this code.....
Code:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Sheets("Sheet1").Select
ActiveSheet.Unprotect ("Your Password Here")
Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1
ActiveSheet.Protect ("Your Password Here")
ActiveWorkbook.Save
Application.DisplayAlerts = True
End SubThis will increment the value (invoice number) in Sheet1 cell A1.
You will need to change Sheet1 A1 and Your Password Here to suit your Worksheet.
To apply this code to your workbook...
Press alt F11
On the right hand side of the Window, click on your workbook name, click Microsoft Excel Objects, double click This Workbook and past the above code into the white area. Press alt F11, save your workbook, close and reopen it.
I hope that helps.
Ak
Upvote
0
