Fermare macro ad orario prestabilito

[apocrimata75]

Vorrei sapere se è possibile bloccare una macro in esecuzione, 5 minuti prima dell'orario impostato nella cella b4.

[patel]

basta controllare il time, confrontarlo con quello della cella, if >= then exit sub

[apocrimata75]

Potresti spiegarmi meglio?
Questa è la macro da fermare.

Codice: Seleziona tutto

Sub aggioauto()
' aggiornamento Macro
'
'CellaFlag = "A1"
'
ThisWorkbook.RefreshAll     '<< Mod
'Application.Wait (Now + TimeValue("0:00:20"))   '<< Del
'wait 20 seconds    '<< Aggiunte Do /Loop
ActiveWindow.SmallScroll Down:=75
    Range("CC112:CS500").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
myTim = Timer
Do
DoEvents: If Timer > myTim + 10 Or Timer < myTim Then Exit Do   '<< *2
Loop
'
Dim UR As Integer
UR = ThisWorkbook.Sheets("Prono").Range("C" & Rows.Count).End(xlUp).Row + 1
If UR < 3 Then
UR = 3
End If
If CellaFlag <> "" Then   'Non rischedulare se gia' attivo
With ThisWorkbook.Sheets("Prono")
    ThisWorkbook.Sheets("Prono").Range("bF2:bS2").Copy
    ThisWorkbook.Sheets("Prono").Range("C" & UR).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    .Range(CellaFlag) = .Range(CellaFlag) + 1
    If .Range(CellaFlag) < 9999 Then
        If (.Range("G2") * 3600 + .Range("H2") * 60 + .Range("I2") < 10) Then .Range("I2") = 10   '<< *3
        mTempo = Now + TimeSerial(.Range("G2"), .Range("H2"), .Range("I2"))
        Application.OnTime mTempo, "aggioauto"
    End If
End With
End If

[Flash30005]

In che formato hai l'orario in B4?

[Anthony47]

Questa macro non e' in esecuzione, ma "schedulata per un certo orario" (metodo on time).

Puoi sostituire questa
Application.OnTime mTempo, "aggioauto"
Con quest' altra
If Range("B4") - TimeSerial(0, 4, 0) > (Timer / 24 / 3600) Then Application.OnTime mTempo, "aggioauto"

In B4 va inserito un "orario", non una "Data + Orario"

Ciao

[apocrimata75]

Il formato è hh:mm:ss. Ho modificato la macro secondo quanto scritto da Anthony. Più tardi vi saprò dire.

[apocrimata75]

Anthony ho apportato le modifiche consigliate, funziona perfettamente, solo che ha bloccato sia il file denominato pluVII che il file denominato plusVII copia

[Anthony47]

In effetti e' un' istruzione molto potente
Vedi risposta ad altro quesito (viewtopic.php?f=26&t=96194&p=552566#p551968)

Ciao

[apocrimata75]

ok, grazie più tardi la proverò immediatamente a correggere secondo le istruzioni dell'altro quesito.

[apocrimata75]

Oramai testo il file da più giorni e sembra girare alla grande, siete stati tutti gentilissimi, vi ringrazio.

Un grazie particolare ad Anthony47 per la sua enorme pazienza e capacità.