VBA Code to add date

[npereira]

Hello all,

I am trying to find out what code to add to a command button to inser
todays date formated as " October 17, 2004 " in Cell E 11.

Please let me know.

regards,

Nelso

 

[Don Guillett]

Sub dodate()
'ActiveCell = Date 'with cell preformatted or
ActiveCell = Format(Date, "mmmm dd,yyyy")
End Sub

 

[JMay]

Private Sub CommandButton1_Click()
Range("E11").Value = Format(Date, "mmmm dd,yyyy")
End Sub

 

[Dave Peterson]

Option Explicit
sub testme01()
with activesheet.range("e11")
.value = date
.numberformat = "mmmm dd, yyyy"
end with
end sub

But if you want a shortcut to enter today's date, you can use ctrl-;
(control-semicolon). You'll have to format the cell the way you want, though.

==
and the shortcut for entering the current time is ctrl-: (control-colon).