Adding text and a timestamp to a cell using VBA

[andrewb90]

Hello All,

I am trying to make a button that combines the value in one cell and adds the current date and time and places it in a new cell. So basically I am trying to take the text in C3("Completed At") and then add the date and time that the macro was run.

Any assistance would be greatly appreciated.


Thanks,

Andrew

 

[alansidman]

Try this:

Option Explicit


Sub completed()
    ActiveCell.Value = Range("C3") & " " & Date & " " & Time
End Sub

 

[andrewb90]

Perfect thank you!

 

[MARK858]

Another option would have been to use Now()

Sub completed2()
    ActiveCell.Value = Range("C3") & " " & Now()
End Sub