Real-time clock in excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all,
I have used the following VBA code to have the real time clock in one of my
cells. but it is not working. can any one help me.

Sub clock()
If ThisWorkbook.Worksheets(1).Range("B1").Value = "X" Then Exit Sub
ThisWorkbook.Worksheets(1).Range("A1").Value = Format(Now, "hh:mm:ss AM/PM")
Application.OnTime Now + TimeSerial(0, 0, 1), "clock"
End Sub
 
Is clock in a standard module (it should be)?

Does B1 have the value X (it shouldn't, except to stop the clock)?

Do you fire the procedure initially somehow?

What does not working mean?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Hi Bob,
I put the code in a module.
B1 doesn't have the X value.
I just put this code in a module and that is it.
I mean that the clock in sheet1 A1 is not working, even it is not showing up.

Thanks for your help in advance.
 
As I said, you have to run the clock procedure to get it started.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Hi Bob,
how should I run the clock procedure to get it started in excel, as you see
the VBA code I have pasted is not working please help me, thanks.

Daoud Fakhry
 
You could either add a button that starts it, assigning that procedure to
the button, or start it when the workbook opens. You already have a nice
easy way to stop it, by putting an X in B1. On that basis, a button sounds
best, you could even have another macro that clears B1 and runs clock
assigned to that button, that way you can easily restart it.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Hi Bob,
I modefied the VBA code as following, the clock is not running again I might
miss something please help me.

Private Sub workbook_open()
If ThisWorkbook.Worksheets(1).Range("B1").Value = "X" Then Exit Sub
ThisWorkbook.Worksheets(1).Range("A1").Value = Format(Now, "hh:mm:ss AM/PM")
Application.OnTime Now + TimeSerial(0, 0, 1), "clock"
End Sub

Thanks, DF
 
Did you put the code in ThisWorkbook, then shut and open the workbook?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Bob,
I have pasted this code to This Workbook in VAB page. I have closed the
workbook and then reopened it, I have the following message on my screen.

"The macro "C:\Documents and Settings\dfakhry\desktop\clocl.xls'!clock
cannot be found"

the above address is where I have my workbook saved.let me know if I am
missing something in the code.
Thanks,
 
Back
Top