Adding a control button to insert a date in the active cell.

[Guest]

Hello,
I'm trying to make a control button that will populate a static date (Ctrl
+) in the active cell that the person has chosen.
Any input is greatly appreciated.

 

[Gord Dibben]

Mike

Sub NOWDATE()
ActiveCell.Value = Format(Date, "dd-mmm-yy")
End Sub


Gord Dibben Excel MVP

 

[Richard]

Try This.

Sub Time_Stamp()
'
' Time_Stamp Macro
'

'
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "h:mm"
ActiveCell.Columns
("A:A").EntireColumn.EntireColumn.AutoFit
End Sub