Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Application.Ontime, ma come si ferma?

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

Application.Ontime, ma come si ferma?

Postdi apocrimata75 » 17/06/13 21:59

Codice: Seleziona tutto
Sub avvia_ora()
'
' Attiva archivio
'

Application.ScreenUpdating = False

Sheets("Pronostici").Select

Application.OnTime TimeValue("" & Range("$d$1") & ":" & Range("$e$1") & ":" & Range("$f$1") & ""), "Macro4"

End Sub


Scusate la domanda, ma data la macro sopra riportata, vorrei sapere se è possibile fermarla ad un orario stabilito (l'orario è contenuto nelle celle d2, e2, f2)

Vi ringrazio anticipatamente.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Sponsor
 

Re: Application.Ontime, ma come si ferma?

Postdi Anthony47 » 18/06/13 02:07

La macro che hai pubblicato pianifica l' esecuzione di Macro4 a un orario prestabilito. La macro andra' in esecuzione a quell' ora e sara' eseguita una sola volta, quindi non afferro che cosa vorresti fermare ad un orario stabilito.

Prima di quell' ora di pianificata esecuzione puoi cancellare quella pianificazione, con l' istruzione
Codice: Seleziona tutto
Application.OnTime TimeValue("" & Range("$d$1") & ":" & Range("$e$1") & ":" & Range("$f$1") & ""), "Macro4", ,False

(presuppone che D1, E1 ed F1 contengano ancora l' orario di pianificata esecuzione)

Se con questi spunti non risolvi allora scrivi e spiega ancora.

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: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Application.Ontime, ma come si ferma?

Postdi apocrimata75 » 18/06/13 18:33

Codice: Seleziona tutto
Sub AVVIO_BACKUP_TxOdds()
'
' Attiva archivio
'
Sheets("Pronostici").Select

Application.ScreenUpdating = False

Application.OnTime Now _
    + TimeValue("00:" & [j1] & ":00"), "AVVIO_BACKUP_TxOdds"
    Macro4
End Sub


Chiedo scusa ho copiato la macro sbagliata, quella sopra citata è quella giusta.

Vorrei sapere se è possibile fermarla ad un orario stabilito (l'orario è contenuto nelle celle d2(ore), e2(minuti), f2(secondi))
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Re: Application.Ontime, ma come si ferma?

Postdi Anthony47 » 19/06/13 14:39

Prova aggiungendo l' istruzione If tra le due esistenti:

Codice: Seleziona tutto
Sheets("Pronostici").Select     'ESISTENTE
If Time > TimeSerial(Sheets("nonSoQuale").Range("D2"), Sheets("nonSoQuale").Range("E2"), Sheets("nonSoQuale").Range("F2")) Then Exit Sub
Application.ScreenUpdating = False     'ESISTENTE

In questo modo, "quando Sub AVVIO_BACKUP_TxOdds andra' in esecuzione", se l' orario specificato nelle celle D2-E2-F2 e' gia' stato superato, la macro si interrompe senza una nuova pianificazione e senza aver eseguito Macro4.

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: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Application.Ontime, ma come si ferma?

Postdi apocrimata75 » 19/06/13 23:16

Grazie Anthony47 funziona perfettamente, non ho parole per ringraziarti a te ed al resto del forum!
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22


Torna a Applicazioni Office Windows


Topic correlati a "Application.Ontime, ma come si ferma?":


Chi c’è in linea

Visitano il forum: Marius44, raimea e 12 ospiti