TIME SCADUTO comparsa di MSGBOX

[cesare71]

Ciao a tutti mi potete aiutare in questo problema?

In Excel in una cella che calcola un conto alla rovescia vorrei far comparire al termine un MSGBOX che mi dica scaduto il tempo.......grazie a tutti ciao

[Anthony47]

Modifica la macro in uso in questa:

Codice: Seleziona tutto

Sub CalcolaDeltaT()
Calculate
If Sheets("Foglio3").Range("S1") < 0 Then  '<<<Foglio e cella in cui e' calcolato il tempo residuo
    MsgBox ("Tempo scaduto"): Exit Sub
Else
    Application.OnTime Now + TimeValue("00:00:1"), "CalcolaDeltaT"  '<<<< il formato che vedi in TimeValue è hh:mm:ss
End If
End Sub


Personalizza la riga marcata <<< col nome foglio e indirizzo cella dove gia' calcoli il tempo mancante.

Ciao

[cesare71]

ho provato a incollare la stringa ma quando inserisco il nome del foglio e il range di celle esce errore 13 ........il nome del foglio è cesare e il range i10:i50......cosa sbaglio.....grazie tante

[Anthony47]

Hummm... mi delucidi su come l' indirizzo della "cella dove gia' calcoli il tempo mancante" e' un insieme di 40 celle?

Ciao

[cesare71]

Si tratta di Excel e ogni riga ho fatto calcolare tempi diversi da me impostati per avere sotto controllo più date nello stesso tempo......inoltre con una funzione logica SE ho detto che quando il tempo è <=0 esce TERMINATA.......ma vorrei che comparisse anche questo MSGBOX ...il tuo suggerimento precedente era esatto ma non funziona con il mio file Excel vedi sopra....e tutto questo con aggiornamento continuo dei vari residui di tempo trascorso.....grazie tante e spero di essermi spiegato meglio ciao

[Anthony47]

Si parla di Orari, non di Date; vero?
Comunque perdona ma non ho ancora capito...
Se hai 40 timer quale di questi vuoi che faccia scattare il nuovo messaggio? O basta che uno vada a zero e vuoi il messaggio? E gli altri timer vuoi continuare a fagli calcolare il loro tempo?
Nel frattempo l' utente sta' lavorando al pc, quindi apre nuovi file e naviga sui vari fogli; per evitare di andare a testare dati a caso, mi dici il nome del foglio su cui i contatori girano?

Ciao

[cesare71]

ciao si parla di date con ora ....si vorrei che quando un timer si azzera esce msgbox ...che dirti grazie per la disponibilità....dimenticavo gli altri proseguono il conteggio il foglio "cesare" e il range( I10,I50)...dentro la cella c'è una funzione logica SE..<=0 visualizza TERMINATA .
credo di averti detto tutto. Almeno spero
ciao

[cesare71]

si scusa il tempo residuo è in ore,minuti,secondi.
con funzione logica SE

[Anthony47]

Allora prova questa versione:

Codice: Seleziona tutto

Dim Termins As Integer
'
Sub CalcolaDeltaT()
CntCell = "I10:I50"   '<<<
CntSh = "Foglio2"     '<<<
'
Calculate
CTerm = Application.WorksheetFunction.CountIf(Sheets(CntSh).Range(CntCell), "TERMINATA")
If CTerm <> Termins And CTerm > 0 Then MsgBox ("Tempo scaduto")
Termins = CTerm
If Application.WorksheetFunction.CountIf(Sheets(CntSh).Range(CntCell), ">0") Then
    Application.OnTime Now + TimeValue("00:00:05"), "CalcolaDeltaT"  '<<< ritardo in hh:mm:ss
End If
End Sub


La riga Dim deve essere la prima del Modulo in cui e' inserita la macro.
Questa conta quanti Terminata sono presenti nel tuo intervallo, e se il numero e' variato rispetto al campionamento precedente segnala "Tempo scaduto"; se ci sono contatori ancora non scaduti la macro si ripetera' N secondi dopo.
Le tre istruzioni marcate <<< sono da personalizzare.

Fai sapere, ciao.

[cesare71]

funziona benissimo.......sei davvero bravo complimenti...grazie tante ciaooooo

[Anthony47]

Per fermare la macro procedi come descritto in questa discussione: viewtopic.php?f=26&t=94425#p540318; cioe':
-inserisci in ThisWorkbook la macro "BeforeClose" contenente l' istruzione (modificata rispetto a quanto scritto nel link)
Application.OnTime NextT, " CalcolaDeltaT ", , False

In testa al Modulo che contiene la CalcolaDeltaT inserisci
Public NextT As Date

Modifichi la CalcolaDeltaT:
-aggiunta in testa:
NextT = Now + TimeValue("00:00:01") '<<< il Periodi di ripetizione macro

Modificata:
Application.OnTime NextT, "CalcolaDeltaT"

In questo modo quando fai Chiudi file la macro viene deschedulata.

Ciao

[cesare71]

niente da fare sicuramente sbaglio da qualche parte ma non riesco ad interrompere la macro chiudendo il file....

[Anthony47]

Le mie doti pranoterapeutiche sono sempre state scarse...
Torna alla macro originale, e modificala in testa:

Codice: Seleziona tutto

Sub CalcolaDeltaT()
CntCell = "I10:I50"   '<<<
CntSh = "Foglio2"     '<<<
Stop ="Z1"              '**** 1
If Sheets(CntSh).Range(Stop).Value) <> "" then Exit Sub   '**** 2
'DA QUI CONTINUANO LE ISTRUZIONI PRECEDENTI:
'
Calculate
'etc etc


Cerca sul tuo foglio dei contatori una cella libera e scrivila nella istruzione ****1 (Z1, nell' esempio); terrai la cella vuota quando vuoi che la conta proceda, ci metterai un valore qualsiasi quando vuoi che si fermi.

Ciao

[cesare71]

Stop ="Z1" '**** 1
Ciao sei davvero paziente con me come dire ho copiato ma mi viene evidenziata la riga che ti ho copiato qui sopra ed esce la scritta errore di sintassi che faccio.......grazie

[Flash30005]

Scusate se mi intrometto in attesa di rettifica
prova a cambiare la variabile Stop in quanto parola chiave (usa StopS o altro termine)
quindi modifica così

Codice: Seleziona tutto

StopS = "Z1"              '**** 1
If Sheets(CntSh).Range(StopS).Value <> "" Then Exit Sub   '**** 2

ciao

[cesare71]

Si ora funziona grazie ad entrambi ......ad Anthony particolarmente per tutto il tempo che mi ha dedicato grazie .

[Anthony47]

Eh eh, paziente forse, disattento certo.
Alla prossima!

[cesare71]

ciao è tanto che non scrivo perchè ho cercato di mettere in pratica le soluzioni che mi hai proposto creando altri file in excel sempre con lo stesso principio del precedente quesito e funzionano molto bene.....ma c'è sempre un ma credo nella vita e anche in questo caso.....se attivo i due file creati ...con le stesse caratteristiche tempo e msgbox esce errore di run-time 9 (indice non incluso nell'intervallo).....poi li devo riattivare per far ripartire il tempo...ma se mi posto tra un file e l'altro ricompare ......solo se affianco le finestre non esce.....che cosa devo fare ????????? grazie tante

[Anthony47]

Se lavori con piu' file e' possibile che quando scatta un "OnTime" quel file non sia attivo; devi pertanto sempre qualificare nelle istruzioni della macro il file a cui le istruzioni si riferiscono.
In pratica invece di Sheets(CntSh) bastera' usare ThisWorkbook.Sheets(CntSh)

Prova e fai sapere.
Ciao

[cesare71]

funziona ho fatto come mi hai detto...ma ora singolarmente lo stop tempo funziona attivando i due file uno stop funziona e l'altro no ....perchè? grazie