Comments on: The OnTime Method

By: cristi

cristi — Tue, 11 Oct 2011 21:38:00 +0000

Sorry for the 3 years delay:)

By: cristi

cristi — Tue, 11 Oct 2011 21:28:00 +0000

Mark,
The problem is that you have to specify the sheet in front of the function. Like this, for example : "sheet1.nextorders".
I hope this was useful for you.

sub nextorders()
startTimer
end sub

sub startTimer()
Application.OnTime Now + TimeValue("00:00:2?), "nextorders"
end sub

This doesn't work for me!!!
CANNOT RUN THE MACRO "D:BOOK1.XLSM'!NEXTORDERS'. THE MACRO MAY NOT BE AVAILABLE IN THIS WORKBOOK OR ALL MACROS MAY BE DISABLED.

wth?? All macros are enabled, what's the problem??

By: DIG

DIG — Wed, 31 Aug 2011 16:21:00 +0000

marc says:
March 29, 2008 at 8:04 pm
sub nextorders()
startTimer
end sub

sub startTimer()
Application.OnTime Now + TimeValue("00:00:2?), "nextorders"
end sub

This doesn't work for me!!!
CANNOT RUN THE MACRO "D:BOOK1.XLSM'!NEXTORDERS'. THE MACRO MAY NOT BE AVAILABLE IN THIS WORKBOOK OR ALL MACROS MAY BE DISABLED.

wth?? All macros are enabled, what's the problem??

sub nextorders()
Application.OnTime Now + TimeValue("00:00:00?), "startTimer"
end sub

sub startTimer()
Application.OnTime Now + TimeValue("00:00:(HEREISTHEPROBLEM)2?), "nextorders"
end sub

>>>>

sub startTimer()
Application.OnTime Now + TimeValue("00:00:02?), "nextorders"
end sub

By: Fenik

Fenik — Sun, 31 Oct 2010 23:57:00 +0000

Hello
I need help to write code in VBA. My cod in VB 6 is working, but in VBA vipWin i dont have time control like in VB 6... I am really struggling with this for days. I have created serial communication for RFID in VB 6 with MSCom and Timer, but VBA doesn't have timer... PLS HELP!!!! This is my code for communication in VB 6 with timer and MSComm:
Private Sub MSComm()
T1.Enabled = True
end Sub

Private Sub T1_Timer()

Dim buffer As Variant
Dim i As Integer
Dim Arrbyte() As Byte
Dim iTemp As Integer
Dim sTemp As String
Dim strINPUT As String
Dim info As String

If cmbTimes.ListIndex = 0 And optIdentify.Value = True Then
T1.Enabled = True
Else
T1.Enabled = False
End If

If ViseKartica = True Then
If prababa = False And cmbTimes.ListIndex = 0 Then
MSComm.Output = Chr("&H" & "0A") & Chr("&H" & "FF") & Chr("&H" & "02?) & Chr("&H" & "44?) & Chr("&H" & "B1?) 'Ciscenje bafera
prababa = True
ElseIf cmbTimes.ListIndex 0 Then
MSComm.Output = Chr("&H" & "0A") & Chr("&H" & "FF") & Chr("&H" & "02?) & Chr("&H" & "44?) & Chr("&H" & "B1?)
End If
MSComm.Output = Chr("&H" & "0A") & Chr("&H" & "FF") & Chr("&H" & "02?) & Chr("&H" & "80?) & Chr("&H" & "75?) 'Identifikacija

Command5.Caption = brojac

If cmbTimes.ListIndex = 0 Then
cmdIdentify.Enabled = False
cmdStop.Enabled = True
Else
cmbTimes.ListIndex = brojac
If brojac < 1 Then
cmbTimes.Locked = False
cmbInterval.Locked = False
T1.Enabled = False
cmdIdentify.Enabled = True
cmdStop.Enabled = False

Pls help to solve this issue !!!

By: madhippiescientist

madhippiescientist — Fri, 01 Oct 2010 06:25:00 +0000

I am using an excel worksheet tag to signify that a waittime function
has been called, so if the user re-opens the workbook (which saved the
tag), it just restarts the waittime. The purpose, is if a user misses
three password entries for their sign-in w/in my workbook, it locks them
out of the "application" until the time passes. On their first missed
entry, they're given the option to quit trying to sign-in, but one of
the three strikes is logged. After 10 minutes, I want the tag to reset.
If the workbook is re-started, say through computer shut-down, the open
workbook function re-starts the timeout, if three strikes exist. But if
I don't reset the tag after 10 minutes of the sign-in sheet sitting idle,
then 2 more attempts, even if deciding to cancel attempted sign-in, will
call the time-out. If a user successfully signs in, it will be reset.
I need an on-time function, that if the one or two strikes are tagged,
and the sign-in sheet sits idle (no objects clicked / only objects are
available on that worksheet), the tag will be reset to "0?. But if a
user happens to click an object (all of which don't run their macro by
determination of time-out in their macro's first few lines), just as the
ontime macro gets called, I don't want an error. Kinda like making sure
the ontime macro runs after whatever code is already being executed. I
saw something to the like in the previous posts, I just want to make sure
I am reading it right, and that it would be executed everytime...

By: Anand

Anand — Wed, 08 Sep 2010 03:54:00 +0000

Hi,

I have one excel sheet which has ontime event of 5 mins to run some code.

This code works fine when in debugging mode. But if I lock my PC or minimize excel windows and start working something else, this code just pauses at beginning and as soon as I activate excel window, this code runs.

This code involves opening and closing of one userform and i think userform is culprit.

Pls help to solve this issue as this fails my whole automation idea....

By: Dennis J

Dennis J — Sat, 14 Aug 2010 20:18:00 +0000

Two questions:
1.
Have written Application.OnTime macro that works; however, I must close the worksheet and reopen it, enabling macros, before it WILL work. If I change the execution time, or any other change to the macro, I must close and reopen again. I want to insert a check box onto my Excel spreadsheet that will allow me to enter an execution time for the OnTime macro to run, and then have it run at that time without having to close and reopen the worksheet every time.

2.
How can I get the time provided either through the check box or InputBox to be utilized in the Application.OnTime statement?

Thank you for your help!

By: ed

ed — Mon, 13 Jul 2009 18:51:00 +0000

I would like to use OnTime to schedule an cancel events. But in my application, I can not trust that VBA will remember global variables. VBA may crash or be stopped and lose the global values. So I may need to cancel events with out knowledge of when they were scheduled.

Is there some DLL that exposes an interface to the Windows event queue that would allow me to inspect all currently-scheduled events?

By: Surajit

Surajit — Sat, 16 May 2009 08:03:00 +0000

But, there all codes to be written plz specify someone

By: rylo

rylo — Thu, 22 Jan 2009 04:37:00 +0000

This won't give you a list of programs, but if you have a list of possible programs, this will allow you to nominate your program name, and, if it has been scheduled, show when it was scheduled. Just run the program for each of your possibles by changing the value of the variable thisprog. In the current code, it looks for a program called "bbb"

HTH

Sub ccc()
'nominate the name of the program you want to check
thisprog = "bbb"
On Error Resume Next
For h = 0 To 23
For i = 0 To 59
For j = 0 To 59
'remove the scheduled ontime activity
Application.OnTime TimeValue(Format(h, "00") & ":" & Format(i, "00") & ":" & Format(j, "00")), thisprog, , False
If Err.Number = 0 Then
'record the name and time of the program
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = TimeValue(Format(h, "00") & ":" & Format(i, "00") & ":" & Format(j, "00"))
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Value = thisprog
'restate the ontime program
Application.OnTime TimeValue(Format(h, "00") & ":" & Format(i, "00") & ":" & Format(j, "00")), thisprog
End If
Err.Clear
Next j
Next i
Next h
On Error GoTo 0
End Sub