Comments on: Incrementing Invoice Numbers with a Text File

By: Tania

Tania — Tue, 06 Nov 2007 04:53:00 +0000

Hi,
I have created a quote in excel, and each quote has a unique number. I would like to be able to open the template and it have the next sequentual number in the spreadsheet. I would also like the document to save automatically with “Customer Name, date, Quote Number” Is this possible????I have tried using the above codes sct, however I have no idea what I am doing, and nothing seems to work. Is there someone that could possibly help me. Many Thanks In Advance…..Tania

By: RageVortex

RageVortex — Thu, 10 May 2007 17:08:00 +0000

Thanx for the help the code ye posted was very helpfull… both of the approaches. I decided to go with the text file one but both approaches were cool.
I did modify it a bit and added a line on the
Worksheet open section so it will auto increase every time I open the document.
Run (NextInv)
ya very simple (I’m lazy )
Sure it may be a hasle when you open the document several times it will always increase the number but heck it will serve our purposes for now. Thanx a lot for all yer efforts and yer coding i’ve been out of the programming game for so long, having to figgure this kinda thng again will probly take me twise as much time than I reely have in my current line of work (Graphic Designer) **cheers**

By: Dick Kusleika

Dick Kusleika — Tue, 26 Jul 2005 03:40:00 +0000

Penny: That’s sounds right to me. If it doesn’t work, let me know.

By: Penny

Penny — Sun, 24 Jul 2005 18:17:00 +0000

I am trying to use Franks Code, But I need the invoice to start at #16160, so it right to put this # in this spot

CONST DEFAULTSTART As Integer = 16160

Any replies will be greatly appreciated

By: J.E. McGimpsey

J.E. McGimpsey — Tue, 26 Oct 2004 23:50:00 +0000

Another approach, with a little more flexibility:

http://www.mcgimpsey.com/excel/invoice.html

By: Jamie Collins

Jamie Collins — Tue, 26 Oct 2004 13:52:00 +0000

strUniqueNumber = CreateObject(“Scriptlet.TypeLib”).GUID

By: Frank Kabel

Frank Kabel — Mon, 25 Oct 2004 19:47:00 +0000

Hi Dick
just my version using the Windows registry and some code in the workbook_open event of a template:
- It changes cell A1 of the first sheet
- you may change the key identifiert according to your needs (e.g. DEFAULTSTART, MYLOCATION, etc.)

Private Sub Workbook_Open()
Const DEFAULTSTART As Integer = 1
Const MYAPPLICATION As String = "Excel"
Const MYSECTION As String = "myInvoice"
Const MYKEY As String = "myInvoiceKey"
Const MYLOCATION As String = "A1?
Dim regValue As Long

With ThisWorkbook.Sheets(1).Range (MYLOCATION)
If .Text <> "" Then Exit Sub
regValue = GetSetting(MYAPPLICATION, MYSECTION, _
MYKEY, DEFAULTSTART)
.Value = CStr(regValue)
SaveSetting MYAPPLICATION, MYSECTION, MYKEY, regValue + 1
End With
End Sub

Also no real error checking included, etc.

Frank