scheduling a macro to run

[felpslima]

Hello,

I have a macro GERA, that I need to be run from 10:20 a.m. to 16:20 a.m, hourly.

Can anyone help me?

thanks!

 

[VoG]

Try the OnTime method http://www.ozgrid.com/Excel/run-macro-on-time.htm

 

[felpslima]

I've found that post, but the problem is that it has two parts...
one to run at a given time and another tha t runs it 15 minutes after running the first one.

I've tried to add them up, but it didn't work.

 

[felpslima]

well, i've found some things and arraged thing so as to fit what I need, but still it does not work.

any sugestions?


Private Sub Workbook_Open()
Dim CurMin As Integer, CurHr As Integer
Dim StartTime As Date
CurMin = CInt(Right(Format(Time, "HH:MM"), 2))
CurHr = CInt(Left(Format(Time, "HH:MM"), 2))

If CurMin = 20 Then
Call Gera
ElseIf CurMin > 21 Then
If CurHr < 15 Then

StartTime = TimeValue(CurHr + 1 & ":20:00")
Application.OnTime StartTime, "Gera"
Else

StartTime = TimeValue("10:20:00")
Application.OnTime StartTime, "Gera"
End If
Else

StartTime = TimeValue(CurHr & ":20:00")
Application.OnTime StartTime, "Gera"
End If

End Select
End Sub