Automatisering af makro

Det har lige sneget sig et tegn for meget ind i
application.ontime timevalue(\"05:30:00\"), der er altså ikke underscore medtaget i makroen!

ASKIMS

Din \"timer\" skal ikke ligge i Auto_Open.

Så køres makroen kun hver gang filen åbnes.

Sæt timeren i gang via en anden makro, når så timeren er sat, kan du roligt forlade computeren.

Du kan også sætte timeren i slutningen af din \"opdaterdimentioner\" så sættes den nye timer umiddelbart efter en første er kørt.

Hvis jeg implementerer det sidste forslag vil jeg så ikke få problemer, når jeg kommer til lørdag og søndag?

ASKIMS

Du kunne jo lave et \"dag+1\" tjek som kun sætter den i gang hvis næste dag er en hverdag.

Grunden til at jeg ikke har lavet det er at jeg skal være sikker på den også kører om mandagen.

Jeg har lavet lidt om i koden. Jan prøv lige og se om det var sådan noget lign., du mente.

Sub auto_open()
    startopdaterdim
End Sub

Sub startopdaterdim()
Dim dag As Variant
dag = WeekDay(Now())

    tid.indsætstarttid

    If dag = 1 Or dag = 7 Then
        Application.OnTime TimeValue(\"05:30:00\"), \"startopdaterdim\"
        Exit Sub
        Else
        Application.OnTime Now + TimeValue(\"00.00.05\"), \"opdaterdimentioner\"
    End If

Application.OnTime TimeValue(\"05:30:00\"), \"startopdaterdim\"
End Sub

Måske skulle du lægge lidt tidsforsænkning på, minimum de 5 sekunder, før du sætter timeren igen.
Uden at have tjekket det, skulle følgende kode vel så kunne gøre det:

Nytid = dag + 1
If Nytid = 7 Then
  Application.OnTime Now + TimeValue(\"72.00.00\"), \"opdaterdimentioner\"
Else Application.OnTime Now + TimeValue(\"24.00.00\"), \"opdaterdimentioner\"
End If

Altså, hvis næste dag er en lørdag skal der gå 72 timer inden makroen køres igen, ellers skal der kun gå 24 timer.

Sorry, den makro som skal køres er selvfølgelig \"startopdaterdim\".

>>> askims
Fik du makroen til at virke?

>>> Jan

Jeg skulle lige se, om den kørte rigtig weekenden over, og det har jeg nu konstateret, at det gør den. Så mange tak for hjælpen.