Displaying Timer
 

Hi,

I have a timeout timer running with the following code.

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,
Schedule:=True

Workbooks("testmatrix.xls").Sheets("Sheet1").cell b14 = RunWhen

How do I get the timer to display counting down in cell B14

?

Displaying Timer
 

In order to convert your expensive machine and software
to a cheap dedicated countdown timer you would have to set up
smaller intervals and set the value of the cell to the
time left. You cannot directly transfer the system clock
to show in a cell. It probably won't have much effect on the
rest of your system but it sure will affect Excel.

http://www.mvps.org/dmcritchie/excel/datetime.htm count down timer
http://www.mvps.org/dmcritchie/excel/youaskedforit.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"MAS" wrote in message ...
Hi,

I have a timeout timer running with the following code.

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,
Schedule:=True

Workbooks("testmatrix.xls").Sheets("Sheet1").cell b14 = RunWhen

How do I get the timer to display counting down in cell B14

?

Displaying Timer
 

David, thanks for that, it answered my question in a round about way. I have
now created a MsgBox brought up by a macro that will on request give me the
time remaining before the RunTime of RunWhat on the network.

Cheers.

"David McRitchie" wrote in message
...
In order to convert your expensive machine and software
to a cheap dedicated countdown timer you would have to set up
smaller intervals and set the value of the cell to the
time left. You cannot directly transfer the system clock
to show in a cell. It probably won't have much effect on the
rest of your system but it sure will affect Excel.

http://www.mvps.org/dmcritchie/excel/datetime.htm count down timer
http://www.mvps.org/dmcritchie/excel/youaskedforit.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"MAS" wrote in message
...
Hi,

I have a timeout timer running with the following code.

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,
Schedule:=True

Workbooks("testmatrix.xls").Sheets("Sheet1").cell b14 = RunWhen

How do I get the timer to display counting down in cell B14

?

Displaying Timer
 

Sounds like a very good choice.

"MAS" wrote in message news:WU2de.10761
David, thanks for that, it answered my question in a round about way. I have
now created a MsgBox brought up by a macro that will on request give me the
time remaining before the RunTime of RunWhat on the network.

Cheers.

"David McRitchie" wrote in message
In order to convert your expensive machine and software
to a cheap dedicated countdown timer you would have to set up [clipped]

Displaying Timer
 

You may want to take a look at
Countdown Timer
http://www.tushar-mehta.com/excel/so...own/index.html

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article ,
says...
Hi,

I have a timeout timer running with the following code.

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat,
Schedule:=True

Workbooks("testmatrix.xls").Sheets("Sheet1").cell b14 = RunWhen

How do I get the timer to display counting down in cell B14

?