code voor elke dag

[Depant]

Hallo allemaal,

Ik gebruik al een tijd en overigens tot volle tevredenheid onderstaande code.
Nu is mijn wens dat hij elke dag werk. ( de macro op tijd laat lopen)
Kan iemand mij vertellen hoe de code er dan uitziet?


Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Date, 2) < 6 Then
Application.OnTime TimeValue("08:10:00"), "gew"
End If
End Sub


Bij voorbaat hartelijk dank.

 

[SjonR]

Zoals ik het begrijp werkt het nu alleen op werkdagen, maar moet het zeven dagen per week werken?

Dan kan je volgens mij het gehele IF-gedeelte er uit laten en hou je alleen:

Private Sub Workbook_Open()
Application.OnTime TimeValue("08:10:00"), "gew"
End Sub

over

 

[Depant]

Hallo SjonR

Goedemorgen.

Helemaal goed!!!
Hartelijk bedankt.

:thumb::thumb:

 

[SjonR]

Top, dan is de vraag opgelost. Geniet van Koningsdag!