I have a invoice that I made in excel. I am now at he point of doing the invoice number in which every time I start a new invoice I need the # to increase 1 number up from the last. I am new at excel and please please as simply as possible. I have tried some on the message board already and will not work for me.
-
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.
automatic invoice numbering
- Thread starter pennyross
- Start date
Andrew Poulsom
MrExcel MVP
- Joined
- Jul 21, 2002
- Messages
- 73,092
Open your workbook and click the XL icon to the left of File on the menu. Paste the code into the window on the right. Press Alt+F11 to return to your workbook. Save it as a template (xlt) in the location Excel suggests. When you want to create an invoice choose File|New and choose the template.
Upvote
0
auto numbering a cell
Here is the code I am using.
Private Sub Workbook_Open ( )
Dim Fname As String
Dim FNo As String
FName = Application.Path & Application.PathSeparator & "Number.Txt"
FNo = Freefile
x = 0
On Error Resume Next
Open FName For Input As #FNo
Input #FNo, x
x = x + 1
*** Change range reference to suit ***
Range ("AA2") .Value = x
Close #FNo
FNo = FreeFile
Open FName For output As #FNo
Write #1, x
Close #FNo
End Sub
When I enter ***Change range reference to suit*** Turns Red
this message appears (Compile Error)
Any Suggestions.
Here is the code I am using.
Private Sub Workbook_Open ( )
Dim Fname As String
Dim FNo As String
FName = Application.Path & Application.PathSeparator & "Number.Txt"
FNo = Freefile
x = 0
On Error Resume Next
Open FName For Input As #FNo
Input #FNo, x
x = x + 1
*** Change range reference to suit ***
Range ("AA2") .Value = x
Close #FNo
FNo = FreeFile
Open FName For output As #FNo
Write #1, x
Close #FNo
End Sub
When I enter ***Change range reference to suit*** Turns Red
this message appears (Compile Error)
Any Suggestions.
Upvote
0
Andrew Poulsom
MrExcel MVP
- Joined
- Jul 21, 2002
- Messages
- 73,092
That's a comment and should have a single quote in front of it:
'*** Change range reference to suit ***
Or you can delete the line.
'*** Change range reference to suit ***
Or you can delete the line.
Upvote
0
The only problem with that is when the invoice is saved as an .xls file, each time the invoice is opened, the number will increase.
I doubt that this will be acceptable.
Have a look at these :-
http://www.mrexcel.com/board2/viewtopic.php?t=209988&start=0
http://www.mrexcel.com/board2/viewtopic.php?t=67922&highlight=insertnextseqnbr
Upvote
0
