re loop for next

[sal21]

I have a for next loop....
I need to re loop The for next at every 5 minutes... how to ? But
only when the for next is finished.
Example:

For i = 0 to 10

Next i

Here stop for 5 minutes
Re loop the for next
Ecc....

[HansV]

If it's in Excel:

Code: Select all

Dim dtmSchedule as Date

Sub StartLooping()
    Dim i As Long
    For i = 0 To 10
        ...
    Next i
    dtmSchedule = Now + TimeSerial(0, 5, 0)
    Application.OnTime dtmSchedule, "StartLooping"
End Sub

Sub StopLooping()
    Application.OnTime dtmSchedule, "StartLooping", , False
End Sub

Run StartLooping when you want to start, and run StopLooping when you want to stop.

[sal21]

If it's in Excel:

Code: Select all

Dim dtmSchedule as Date

Sub StartLooping()
    Dim i As Long
    For i = 0 To 10
        ...
    Next i
    dtmSchedule = Now + TimeSerial(0, 5, 0)
    Application.OnTime dtmSchedule, "StartLooping"
End Sub

Sub StopLooping()
    Application.OnTime dtmSchedule, "StartLooping", , False
End Sub

Run StartLooping when you want to start, and run StopLooping when you want to stop.

ops...

but really i need in vba for Excel.
sorry me

errror in:
Application.OnTime dtmSchedule, "StartLooping", , False

[HansV]

The code runs in Excel, I tested it.

[Rudi]

You can only run StopLooping while StartLooping is running.
If you run StopLooping on its own it will debug as there is nothing to stop.

[sal21]

The code runs in Excel, I tested it.

Resolved....

but how to stop the timer routine and exit sub if the cirrent tme is => 16:30?

[Rudi]

Try this...
Note: Its air code...untested!

Code: Select all

Option Explicit
Dim dtmSchedule As Date

Sub StartLooping()
   Dim i As Long

   For i = 0 To 10
      '...
   Next i

   If Now >= TimeValue("16:30:00 PM") Then
      StopLooping
   Else
      dtmSchedule = Now + TimeSerial(0, 5, 0)
      Application.OnTime dtmSchedule, "StartLooping"
   End If

End Sub

Sub StopLooping()
   On Error Resume Next
   Application.OnTime dtmSchedule, "StartLooping", , False
End Sub