code to enter date as text

[gheyman]

I need to add the date to a cell that I am using as a Unique Identifier. I want to use the date so I need to transform how it appears in the cell.
example for today, which would be 3/29/2021 16:58 what I am trying to populate the cell with is 103291658 (just the last digit from the year so 2021 become 1).
I also want to incorporate the users initials using CurrentUser = Environ("UserName") . Here the user the user will always be there first name and last name with a dot in-between (example Joe.Smith)

in the end the code would produce JS103291658 in a cell

Any help is appreciated. Thank you!

 

[Eric W]

Try:

Range("A1").Value = Left(Environ("UserName"), 1) & Left(Split(Environ("UserName") & ".", ".")(1), 1) & _
                    Right(Date, 1) & Format(Month(Now), "00") & Format(Day(Now), "00") & _
                    Format(Hour(Now), "00") & Format(Minute(Now), "00")

 

[Rick Rothstein]

Range("A1").Value = Left(Environ("UserName"), 1) & Left(Split(Environ("UserName") & ".", ".")(1), 1) & _
                    Right(Date, 1) & Format(Month(Now), "00") & Format(Day(Now), "00") & _
                    Format(Hour(Now), "00") & Format(Minute(Now), "00")

You can replace the part I highlighted in red with this much shorter code fragment...

Mid(Format(Now, "yymmddhhmm"), 2)

 

[Eric W]

A tweak to your tweak:

Mid(Format(Now, "yymmddhhnn"), 2)

You need to use n for minutes.

 

[Rick Rothstein]

I read it too fast and missed that minutes were required.