Code to define dTime

[albatross32]

I want to use dTime to trigger a macro to refresh web sourced input data. The trigger time is to be linked to a timer in A1 and not 'Now'. Therefore, A1 contains a TimeValue and I want to define dTime so that my macro is triggered when A1 reaches "00:30:00".

 

[VoG]

Maybe like this

Dim dTime As Date
dTime = TimeSerial(0, 30, 0)

 

[albatross32]

Thanks for your response but this does not answer my enquiry. I am looking to use a version of the following;

Public dTime As Date
Sub MyMacro()
dTime = Now + TimeValue("00:15:00")
Application.OnTime dTime, "MyMacro"
'YOUR CODE
End Sub</PRE>

</PRE>
Instead of using Now + TimeValue I want to say 'when the timer in A1 reaches 00:30:00 refresh input data'.</PRE>

 

[Norie]

What timer in A1?

All you seem to have is a time value, unless you've got other code that's updating that.

 

[albatross32]

Please refer to my original enquiry. A1 contains a timer. It is being triggered by my external data source and is counting up from 00:00:00. I want to trigger a data input refresh when that timer reaches 00:30:00. I cannot use 'Now'.

 

[Norie]

Your original post doesn't mention an external data source.

How does this time work?

Does is goto to 00:30:00 then back to 00:00:00?

Or is it at 00:30 intervals, eg 00:30:00, 01:00:00, 01:30:00?

How about setting dtimer to a have a small increment line 00:01:00?

When it's triggered check the value of A1 and continue with the code if required.

 

[albatross32]

The timer in A1 just keeps going until the workbook is closed. All I need is to trigger a single refresh of data once that timer reaches 00:30:00.

 

[Norie]

Well try what I suggested.

Public dTime As Date
Sub MyMacro()

dTime = Now + TimeValue("00:01:00")

Application.OnTime dTime, "MyMacro"

If Range("A1").Value = TIMESERIAL(0,0,30) Then
      ' do whatever
End If
End Sub

How is the value in A1 triggered by the external data source anyway?

Perhaps it's not a timer you should use if you just want to trigger code when a cell has a certain value.