Command Button Date/Time Stamp
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 |
Command Button Date/Time Stamp
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 |
Command Button Date/Time Stamp
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 |
Command Button Date/Time Stamp
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 |
Command Button Date/Time Stamp
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 |
All times are GMT +1. The time now is 08:21 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com