I am trying to date/time stamp a cell by clicking a command button. I want
the cell to display the date and time when the button was last clicked. I can
get it to display the date but I cannot figure out how to get "SendKeys" to
allow me to select CTL+; "SPACE" CTL+ALT+; . This is what I have now as a
command for the button and it will give me a date in the selected cell:

Private Sub CommandButton1_Click()
Range("c2").Select
SendKeys "^(;)"
End Sub
--
skyknight

Hi Sky,

Try:

'=============
Private Sub CommandButton1_Click()
ActiveCell.Value = Format(Now, "mm/dd/yy hh-mm")
End Sub
'<<=============


---
Regards,
Norman



"sky" wrote in message
...
I am trying to date/time stamp a cell by clicking a command button. I want
the cell to display the date and time when the button was last clicked. I
can
get it to display the date but I cannot figure out how to get "SendKeys"
to
allow me to select CTL+; "SPACE" CTL+ALT+; . This is what I have now as a
command for the button and it will give me a date in the selected cell:

Private Sub CommandButton1_Click()
Range("c2").Select
SendKeys "^(;)"
End Sub
--
skyknight

Private Sub CommandButton1_Click()
Range("c2").Value = Now()
End Sub

--
HTH...

Jim Thomlinson


"sky" wrote:

I am trying to date/time stamp a cell by clicking a command button. I want
the cell to display the date and time when the button was last clicked. I can
get it to display the date but I cannot figure out how to get "SendKeys" to
allow me to select CTL+; "SPACE" CTL+ALT+; . This is what I have now as a
command for the button and it will give me a date in the selected cell:

Private Sub CommandButton1_Click()
Range("c2").Select
SendKeys "^(;)"
End Sub
--
skyknight

Thanks Guys
I finally also came up with my own less elegant one.
===========
Private Sub CommandButton1_Click()
Range("c2").Select
SendKeys "^(;)"
SendKeys " "
SendKeys "^+(;)", Wait
End Sub
=========
skyknight

Hi Sky,

I finally also came up with my own less elegant one.

Elegance is in the eye of the beholder, but why use a clunky implementation
of SendKeys when a native function is available?

---
Regards,
Norman


"sky" wrote in message
...
Thanks Guys
I finally also came up with my own less elegant one.
===========
Private Sub CommandButton1_Click()
Range("c2").Select
SendKeys "^(;)"
SendKeys " "
SendKeys "^+(;)", Wait
End Sub
=========
skyknight