Unique ID genrated when printing.

[ash2462]

Hi.
I have a permit tow work from created for external engineers attending site in excel.
I would like the form to generate a unique ID when it is printed out or saved.

Is this possible?


Thanks,
Ash.

 

[Joe4]

Welcome to the Board!

How about just using a Date/Time stamp to goes down to the second? That should create a unique ID every time (you could even go down to fractional seconds, if needed).

Here is an example of what that might look like:

Sub UniqueID()

    Dim myID As String
    
    myID = Format(Now(), "yyyymmddhhnnss")
    MsgBox myID
    
End Sub

 

[Joe4]

Not sure why you sent an email to the Registration email address with your reply (see below):

It needs to be a number that increases by one each time. IE 0001, 0002, 0003 etc.

Just use the "Reply to Thread" at the bottom of each thread to reply.

Just store the counter in a cell somewhere (in a blank cell), increment it each time, and format with four zeroes, i.e.

Sub CreateInvoiceNum()

    Dim InvoiceNum As String

    Range("Z1") = Range("Z1") + 1
    InvoiceNum = Format(Range("Z1"), "0000")
    MsgBox InvoiceNum
    
End Sub

Also a little tip on posting questions - be detailed! General questions lead to general answers that might not work for you.
You can save a lot of time and back-and-forth by providing lots of detail in your initial question.