Autogenerated order number

  • Thread starter Thread starter Judy
  • Start date Start date
J

Judy

How do you tell Excel to create an order number each time
you open it? i.e.: Using Excel for quotations, want each
quotation to automatically create the next numeric order
number. Please respond to (e-mail address removed) - THANKS!!
 
Good morning Judy -

Sorry there isn't a way to do this directly in a worksheet.
However, there is a way by using a macro.
I don't know if you have ever done anything with macros - so it could get rather involved.

The following information would allow you to get what you want:
In the personal macro workbook:
Sheet1 - cell A1 enter the number you want your invoices to start with
For example: 100000

Using the VBA editor insert the following code:
Sub INV_NUM()
x = Thisworkbook.Sheets(1).Range("A1").Value
' Gets the value for the Invoice
ActiveSheet.Range("C5").value = x
' C5 is the cell where you want the Invoice number in the invoice sheet
Thisworkbook.Sheets(1).Range("A1").Value = x + 1
'Increases the invoice by 1 for the next invoice
End Sub

Save the Personal Macro Workbook

If you activate an Invoice sheet and run the macro - the number 100000 will be placed in cell C5 of the active sheet.
The next time you run the macro 100001 will be placed in the cell C5 of the active sheet.


Hopes this makes sense.
If you need further help - let me know - I will be glad to help.

Thanks,
Jon Barchenger





--------------------
| **Content-Class: urn:content-classes:message
| **From: "Judy" <[email protected]>
| **Sender: "Judy" <[email protected]>
| **Subject: Autogenerated order number
| **Date: Tue, 11 Nov 2003 23:41:58 -0800
| **Lines: 4
| **Message-ID: <[email protected]>
| **MIME-Version: 1.0
| **Content-Type: text/plain;
| ** charset="iso-8859-1"
| **Content-Transfer-Encoding: 7bit
| **X-Newsreader: Microsoft CDO for Windows 2000
| **X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
| **Thread-Index: AcOo8HOuINYf3PxmSaKaRfS3Guom1Q==
| **Newsgroups: microsoft.public.excel.worksheet.functions
| **Path: cpmsftngxa06.phx.gbl
| **Xref: cpmsftngxa06.phx.gbl microsoft.public.excel.worksheet.functions:170698
| **NNTP-Posting-Host: TK2MSFTNGXA09 10.40.1.161
| **X-Tomcat-NG: microsoft.public.excel.worksheet.functions
| **
| **How do you tell Excel to create an order number each time
| **you open it? i.e.: Using Excel for quotations, want each
| **quotation to automatically create the next numeric order
| **number. Please respond to (e-mail address removed) - THANKS!!
| **
 
Back
Top