Date plus incrementing number

[mlancaster]

I have the following script that auto populates several fields on my spreadsheet when i enter data. In column B, I also need to have it put today's date plus a number. I need the numbers to start over each day. For instance:

071913-001
071913-002
071913-003
072013-001
072013-002
072013-003

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
Application.EnableEvents = False
Target.Offset(0, 2).Value = Date
Target.Offset(0, 4).Value = "Open"

Application.EnableEvents = True
End If
End Sub


Any help is greatly appreciated!

Thanks,
Mike

[oeldere]

Non VBA solution,

See the attached file.

dutch =ALS(A1="";"";TEKST(A1;"dd-mm-jjjj")&"-"&TEKST(AANTAL.ALS(A1:A1;A1);"000"))

English =if(A1="","",TEXT(A1,"dd-mm-jjjj")&"-"&TEXT(Countif($A$1:$A1,$A1),"000"))