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

M

Mike

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.
 
G

Gord Dibben

Mike

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


Gord Dibben Excel MVP
 
R

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
 
Top