The NOW function
 

Usually the NOW function does not update until you save or re-open the file
or press calculate (F9).

However I somehow managed to get it to update constantly (so I could have a
countdown clock running). Does anyone know how to do this?

Thanks
Atreides

The NOW function
 

Probably something like this: http://www.cpearson.com/excel/ontime.htm

************
Hope it helps!
Anne Troy
www.OfficeArticles.com

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Usually the NOW function does not update until you save or re-open the
file
or press calculate (F9).

However I somehow managed to get it to update constantly (so I could have
a
countdown clock running). Does anyone know how to do this?

Thanks
Atreides

The NOW function
 

Thanks Anne, almost there..

That bit of code sets up a periodically running subroutine... but what to
put in the subroutine? How can I make it so that a specific cell always shows
the instantaneous current time?

Peter

"Anne Troy" wrote:

Probably something like this: http://www.cpearson.com/excel/ontime.htm

************
Hope it helps!
Anne Troy
www.OfficeArticles.com

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Usually the NOW function does not update until you save or re-open the
file
or press calculate (F9).

However I somehow managed to get it to update constantly (so I could have
a
countdown clock running). Does anyone know how to do this?

Thanks
Atreides

The NOW function
 

Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock",,False
End Sub

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Anne, almost there..

That bit of code sets up a periodically running subroutine... but what to
put in the subroutine? How can I make it so that a specific cell always
shows
the instantaneous current time?

Peter

"Anne Troy" wrote:

Probably something like this: http://www.cpearson.com/excel/ontime.htm

************
Hope it helps!
Anne Troy
www.OfficeArticles.com

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Usually the NOW function does not update until you save or re-open the
file
or press calculate (F9).

However I somehow managed to get it to update constantly (so I could
have
a
countdown clock running). Does anyone know how to do this?

Thanks
Atreides

The NOW function
 

Thank you, Bob. We both know I could not have answered that. :)
hugs & kisses
************
Hope it helps!
Anne Troy
www.OfficeArticles.com

"Bob Phillips" wrote in message
...
Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock",,False
End Sub

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Anne, almost there..

That bit of code sets up a periodically running subroutine... but what to
put in the subroutine? How can I make it so that a specific cell always
shows
the instantaneous current time?

Peter

"Anne Troy" wrote:

Probably something like this: http://www.cpearson.com/excel/ontime.htm

************
Hope it helps!
Anne Troy
www.OfficeArticles.com

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Usually the NOW function does not update until you save or re-open
the
file
or press calculate (F9).

However I somehow managed to get it to update constantly (so I could
have
a
countdown clock running). Does anyone know how to do this?

Thanks
Atreides

The NOW function
 

Thanks Bob, that looks promising, however I'm not sure exactly how to run
this code. I assume that I need a sheet labelelled "Sheet1" and that the
clock will appear in cell A1? Perhaps I've entered the code wrong.My VBA
module looks like this:

====

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' two minutes
Public Const cRunWhat = "The_Sub"
Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat, _
schedule:=True
End Sub

Sub The_Sub()

Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock", , False
End Sub

StartTimer

End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedu=cRunWhat, schedule:=False
End Sub

====

Should I have put your block somewhere else?

Thanks
Atreides

The NOW function
 

You don't need anything on the worksheet, it finds A1 itself (you can change
that to any cell you want).

All you need to do is fire it. Goto menu ToolsMacroMacros... and select
StartTimer from the list, then click Run. You can stop it in a similar
manner.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Bob, that looks promising, however I'm not sure exactly how to run
this code. I assume that I need a sheet labelelled "Sheet1" and that the
clock will appear in cell A1? Perhaps I've entered the code wrong.My VBA
module looks like this:

====

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' two minutes
Public Const cRunWhat = "The_Sub"
Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat, _
schedule:=True
End Sub

Sub The_Sub()

Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock", , False
End Sub

StartTimer

End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedu=cRunWhat, schedule:=False
End Sub

====

Should I have put your block somewhere else?

Thanks
Atreides

The NOW function
 

Thanks Bob, it works!

I'm really new to Macros so I didn't know you could just run them like that.
I only used them to write functions before.

"Bob Phillips" wrote:

You don't need anything on the worksheet, it finds A1 itself (you can change
that to any cell you want).

All you need to do is fire it. Goto menu ToolsMacroMacros... and select
StartTimer from the list, then click Run. You can stop it in a similar
manner.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Bob, that looks promising, however I'm not sure exactly how to run
this code. I assume that I need a sheet labelelled "Sheet1" and that the
clock will appear in cell A1? Perhaps I've entered the code wrong.My VBA
module looks like this:

====

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' two minutes
Public Const cRunWhat = "The_Sub"
Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat, _
schedule:=True
End Sub

Sub The_Sub()

Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock", , False
End Sub

StartTimer

End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedu=cRunWhat, schedule:=False
End Sub

====

Should I have put your block somewhere else?

Thanks
Atreides

The NOW function
 

A whole new world is opening to you <G

Bob

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Bob, it works!

I'm really new to Macros so I didn't know you could just run them like
that.
I only used them to write functions before.

"Bob Phillips" wrote:

You don't need anything on the worksheet, it finds A1 itself (you can
change
that to any cell you want).

All you need to do is fire it. Goto menu ToolsMacroMacros... and
select
StartTimer from the list, then click Run. You can stop it in a similar
manner.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Bob, that looks promising, however I'm not sure exactly how to
run
this code. I assume that I need a sheet labelelled "Sheet1" and that
the
clock will appear in cell A1? Perhaps I've entered the code wrong.My
VBA
module looks like this:

====

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' two minutes
Public Const cRunWhat = "The_Sub"
Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat, _
schedule:=True
End Sub

Sub The_Sub()

Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock", , False
End Sub

StartTimer

End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedu=cRunWhat, schedule:=False
End Sub

====

Should I have put your block somewhere else?

Thanks
Atreides