Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Fermare macro ad orario prestabilito

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Fermare macro ad orario prestabilito

Postdi apocrimata75 » 19/07/12 15:21

Vorrei sapere se è possibile bloccare una macro in esecuzione, 5 minuti prima dell'orario impostato nella cella b4. :idea:
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Sponsor
 

Re: Fermare macro ad orario prestabilito

Postdi patel » 19/07/12 18:53

basta controllare il time, confrontarlo con quello della cella, if >= then exit sub
patel
Utente Senior
 
Post: 122
Iscritto il: 24/04/12 16:03

Re: Fermare macro ad orario prestabilito

Postdi apocrimata75 » 19/07/12 20:07

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
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Re: Fermare macro ad orario prestabilito

Postdi Flash30005 » 19/07/12 22:34

In che formato hai l'orario in B4?
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Fermare macro ad orario prestabilito

Postdi Anthony47 » 19/07/12 22:45

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Fermare macro ad orario prestabilito

Postdi apocrimata75 » 20/07/12 08:48

Il formato è hh:mm:ss. Ho modificato la macro secondo quanto scritto da Anthony. Più tardi vi saprò dire.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Re: Fermare macro ad orario prestabilito

Postdi apocrimata75 » 20/07/12 11:38

Anthony ho apportato le modifiche consigliate, funziona perfettamente, solo che ha bloccato sia il file denominato pluVII che il file denominato plusVII copia
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Re: Fermare macro ad orario prestabilito

Postdi Anthony47 » 20/07/12 14:36

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

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Fermare macro ad orario prestabilito

Postdi apocrimata75 » 20/07/12 15:52

ok, grazie più tardi la proverò immediatamente a correggere secondo le istruzioni dell'altro quesito. :P
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Re: Fermare macro ad orario prestabilito

Postdi apocrimata75 » 28/07/12 10:23

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à.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22


Torna a Applicazioni Office Windows


Topic correlati a "Fermare macro ad orario prestabilito":


Chi c’è in linea

Visitano il forum: PcBase e 7 ospiti