Something like

Textbox1.Text=Format(Date,"yymmdd") & "-" &
Format(Range("IV1").Value,"00")

in the userform activate, and

Range("IV1").Value =Range("IV1").Value +1 m

in the save code.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"prodsched " wrote in message
...
I have a text box on a user form into which a date code must be entered.
Instead of the user manually entering the code I would like the number
to be autogenerated.

For example, when the user form opens the automated number should
appear in the text box. The number will be saved when the user enters
OK and the form contents are saved to the excel sheet.

The date code format is as follows.

YYMMDD-## (date-record number).

The code should get today's date and increment the ## (record number)
with each form save. For example:

040517-01 which will increment to 040517-02 which will increment to
040517-3 and so on. The first six digits are the actual date while the
second two identify a particular record.

Thank you for your consideration.


---
Message posted from http://www.ExcelForum.com/