Real-time clock in excel

[Daoud Fakhry]

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

 

[Bob Phillips]

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)

 

[Daoud Fakhry]

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.

 

[Bob Phillips]

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)

 

[Daoud Fakhry]

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

 

[Bob Phillips]

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)

 

[Daoud Fakhry]

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

 

[Bob Phillips]

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)

 

[Daoud Fakhry]

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,