NOW() Function PROBLEM SOLVED, NICELY TOO

[elgringo56]

When using the NOW() function, the date and time are displayed, but the time remains static from that point on. Is there a function that will allow the date and time to display and the time to incriment with the clock?
This message was edited by elgringo56 on 2002-08-22 23:37

 

[cokewithvanilla]

You could use OnTime to recalculate the workbook periodically, which could cause conditional formatting to reevaluate. Less glitz, but less impact.

every minute would be great. How can I do that?


oh, I almost forgot. The x macro errors out "Method 'OnTime' of object '_Application' failed". Is that part even necessary?

 

[cokewithvanilla]

Ok, I got thr every minute thing... what about the x macro failing???

 

[shg]

What is all of the code you have now?

 

[cokewithvanilla]

What is all of the code you have now?

Module

Sub Z()
Application.OnTime Now + TimeValue("00:01:00"), "Z"
If Range("a1").Value <> Now() Then Calculate
End Sub
Sub x()
Application.OnTime Now + TimeValue("00:01:00"), "Z", Schedule:=False
End Sub

ThisWorkbook Module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
x
End Sub

Private Sub Workbook_Open()
Z
End Sub

 

[shg]

' Standard module</SPAN>
 
Option Explicit</SPAN>
 
Dim tWhen As Date</SPAN>
 
Sub Calc()</SPAN>
    Calculate</SPAN>
    tWhen = Now() + TimeSerial(0, 0, 1)</SPAN>
    Application.OnTime EarliestTime:=tWhen, _</SPAN>
                       Procedure:="Calc"</SPAN>
End Sub</SPAN>
 
Sub StopCalc()</SPAN>
    Application.OnTime EarliestTime:=tWhen, _</SPAN>
                       Procedure:="Calc", _</SPAN>
                       Schedule:=False</SPAN>
End Sub</SPAN>
 
' ThisWorkbook Module</SPAN>
 
Option Explicit</SPAN>
 
Private Sub Workbook_Open()</SPAN>
    Calc</SPAN>
End Sub</SPAN>
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)</SPAN>
    StopCalc</SPAN>
End Sub</SPAN>

 

[cokewithvanilla]

That worked! Thanks

 

[shg]

Well good, you're welcome.