Order Numbers?

[Youandih]

Good day,

I have a question: I work at a phone retail shop, and we use Excel to make the receipts for our customers.
In order to find the receipts back if there's a problem, we have to (manually!) increase a number, the order number, everytime we open the file.

So, one customer comes, buys something, we make receipt and change the order number to e.g. 000501. We save it, we print it.
Then, the next customer comes, buys something, we make receipt and change order number to 000502, save, print.

Is there a way to automate that process, so that everytime we open the blank receipt, we get a sequential, unique number?

Thanks, Youandi Hoefman

 

[Youandih]

Hey guys, I've been using the tips you guys gave me, and they perform perfectly. But now I run into a new problem..

On each receipt, there's a date. I used the =TODAY() function for that.. But now, I find that when I open old receipts, I see today's date..
Makes sense, because I told the sheet to do that; just didn't realize the saved sheet still has that function.

What I need is that, before saving the workbook "BeforePrint", the date (displayed as Oct. 22 2013) must be converted to text. That is possible, I'm sure. But just how does that work?

Now note that I only need the receipt saved as e.g. "1000602" to have the converted text, NOT the original template.

 

[Andrew Poulsom]

In which cell on what sheet is the date? Conversion example:

With Worksheets("Sheet1").Range("A1")
    .Value = .Value
End With

Change the worksheet and range references to suit.

 

[Youandih]

Like this?:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Sheet1").Range("B14")
.Value = .Value
End With
ThisWorkbook.SaveAs ("C:\Users\GSMSHOP\Documents\facturen\GSMShop\klanten oktober\" & Range("E14") & ".xls")
End Sub
</pre>

 

[BrianMH]

That's correct.

 

[Youandih]

Awesome, I'm going to make a test-sheet today, and test it tomorrow.. I'll keep you posted on any progress.

 

[BrianMH]

If you have access to change the date you could change the system date temporarily to test if it worked.