increment date code

[prodsched]

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 numbe
to be autogenerated.

For example, when the user form opens the automated number shoul
appear in the text box. The number will be saved when the user enter
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 t
040517-3 and so on. The first six digits are the actual date while th
second two identify a particular record.

Thank you for your consideration

 

[Bob Phillips]

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)