How do I calculate at timed intervals?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

qaf - 23 Aug 2007 00:17 GMT

I want to perform calculations at timed intervals. I wrote the
following macro:

Public Function CalcNow(CurTime As Date) As Boolean
Static bInitialized As Boolean
Static StartTime As Date, EndTime As Date
Dim TimeDiff As Double

If Not bInitialized Then
StartTime = Now()
EndTime = Now()
bInitialized = True
End If
EndTime = Now()
TimeDiff = (EndTime - StartTime) * 86400
If TimeDiff > 5 Then
Application.Calculate
StartTime = Now()
End If
End Function

The current time is in cell A1 and I pass that value to trigger the
running of the function every second - BUT since I am in manual
calculation mode, cell A1 does not update - UGH!!

Any suggestions are appreciated.

Reply to this Message

Gary Brown - 23 Aug 2007 03:00 GMT

forget about the CurrTime.
Make the Function a Sub and run it.

Signature

HTH,
Gary Brown
gary.DeleteThis2SendMeAnEmail.Brown@kinneson.com
If this post was helpful to you, please select
''''''''''''''''YES'''''''''''''''' at the bottom of the post.

> I want to perform calculations at timed intervals. I wrote the
> following macro:
[quoted text clipped - 22 lines]
>
> Any suggestions are appreciated.

Reply to this Message