Add Time & Date in current cell without losing existing data

[impala096]

Trying to create a macro that will add the date & time & initials (i.e 8/26/09 2:34 PM JOD) into the current cell.

I've found plenty of macro's that will do this but it ends up deleting any existing text within the cell. I need to be able to add it in the middle of a text string.

Any help would be greatly appreciated

[shg]

For example, ...

[impala096]

For example, the following macro will insert Date/Time into a field but it clears the contents of anything in the cell.

Sub Set_DateTime()
ActiveCell.Value = Format(Now(), "m/dd/yyyy h:mmAM/PM")
End Sub

This is an example of what my notes field would look like:
8/26/09 2:33 PM JOC Tested Ok. 8/27/09 3:33 PM ABC Sent tech to regional.

How can i automatically add 8/27/09 3:33 PM ABC without clearing the existing data in the cell?

Thanks

[shg]

Please Login or Register  to view this content.

[impala096]

Sorry for not putting the macro within a code. Still no luck with this one?

[shg]

Pardon?

Try the code I posted.

[impala096]

Thanks SHG for your help!

The only problem is that when i'm within the contents of the cell (i.e. You can see your cursor blinking within the cell), i'm unable to run the macro . If i only have the cell selected it will add it to the end of the line of text.

Is there anyway to get around this so i can add the datestamp wherever my cursor is at within the string of text?

Thanks again
Impala096

[shg]

Nope. Short of doing stuff with Windows API, when Excel is in Edit mode, VBA is locked out.

[impala096]

Ok, thanks again SHG!

[impala096]

One more simple problem i just can't figure out. The timestamp is also going to include the initials of the person that is entering the data. I slightly modified your code to look like this.

Please Login or Register  to view this content.

I expected it to return a result like 9/1/09@13:32 TJC.... it returned 9/1/09@13:32 TJ9/1/2009 2:34:21 PM.

The letters T & J appeared as expected.. C didn't appear correctly at all.

[shg]

Please Login or Register  to view this content.

[scottm19]

Hello,

I realize this is a fairly old post, but can anyone tell me how to how add this same stamp to the beginning of the cell instead of the end, while still retaining the original text? In addition, is it possible to make this specific text bold?

I am using Excel 2010 for Windows.

Thanks!

[shg]

Please Login or Register  to view this content.

[scottm19]

Thank you shg! One issue I'm having is that when you enter this time stamp, it unbolds all previous stamps in the cell. Is it possible to not affect the pre-existing text format? Also, is it possible to push the old text down to the line below the new stamp, something similar to what I've pasted below? I have also included what my code currently looks like.

"05/19/2014 (SM): Allocated.
05/18/2014 (SM): Uploaded."

Please Login or Register  to view this content.

[mk_poor]

Thanks you so much!