Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

macro excel 2003 Opzioni
ludagi
Inviato: Friday, September 12, 2014 6:51:37 AM
Rank: AiutAmico

Iscritto dal : 2/7/2011
Posts: 382
Ho una macro "ppp" che agisce su piu' fogli che si ripete ogni x secondi col metodo :

deltaT = "00:00:5" '<<< restart ogni 5 secondi; cambiare se necessario

Application.OnTime Now + TimeValue(deltaT), "ppp"

inserita nel modulo 1.


questa macro adesso viene lanciata dal foglio 1 con un tasto associato alla macro e quando visito un'altro foglio la macro si arresta e al ritorno sul foglio 1 devo rilanciarla.

Come fare per rendere la macro sempre attiva anche quando visualizzo altri fogli ?

grazie


Sponsor
Inviato: Friday, September 12, 2014 6:51:37 AM

 
a10n11
Inviato: Friday, September 12, 2014 12:34:19 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
assegna ad un pulsante la seguente macro:

Dim deltaT As Date
Sub ppp()
deltaT = Now + TimeValue("00:00:05")
'qui metti quello che deve fare la macro--------------------
Application.OnTime deltaT, "ppp"

End Sub

per fermare la macro assegna ad un pulsante la seguente:

Sub Stoppp()
Application.OnTime deltaT, "ppp", schedule:=False
End Sub

saluti
Giap

ludagi
Inviato: Friday, September 12, 2014 12:45:52 PM
Rank: AiutAmico

Iscritto dal : 2/7/2011
Posts: 382
forse non mi sono spiegato ...la macro "ppp" funziona perfettamente il problema è che se visualizzo un'altro foglio la macro si ferma e al ritorno sul foglio 1 bisogna rilanciare la macro.

cio' che desidero che la macro non si disattivi se visito altri fogli.

a10n11
Inviato: Friday, September 12, 2014 6:37:15 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
ludagi ha scritto:
forse non mi sono spiegato ...la macro "ppp" funziona perfettamente il problema è che se visualizzo un'altro foglio la macro si ferma e al ritorno sul foglio 1 bisogna rilanciare la macro.

cio' che desidero che la macro non si disattivi se visito altri fogli.


salve
ti sei spiegato benissimo ma non ci dici che cosa fa la macro ogni 5 secondi sarebbe utile vedere il codice per capire.
atitolo di esempio, fa girare questa macro:


Dim deltaT As Date
Sub ppp()
deltaT = Now + TimeValue("00:00:05")
With Sheets("Foglio1")
.Range("A1").Value = .Range("A1").Value + 5
End With
Application.OnTime deltaT, "ppp"

End Sub


una volta in escuzione, cambia foglio quante volte vuoi e vedrai che il contatore nella cella A1 non subirà nessuna inturruzione.
saluti
Giap



ludagi
Inviato: Saturday, September 13, 2014 6:29:14 AM
Rank: AiutAmico

Iscritto dal : 2/7/2011
Posts: 382
ok

grazie del suggerimento

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.