Application.OnTime TimeValue non esegue una macro

Question

Buongiorno a tutti,

ho bisogno del vostro aiuto.

Ho un problema con la funzione "Application.OnTime TimeValue", nel senso che non richiama la macro richiesta.

Quello che vorrei ottenere è questo: la funzione "Application.OnTime TimeValue" ad un orario stabilito richiama un macro la quale esegue un "Calculate", praticamente un F9, che aggiorna l'ora corrente nella cella "C2", in modo che una formattazione condizionale mi evidenzia l'ora corrente. Esempio: 8:30; 9,20, ecc..

Ovviamente potrei aggiornare l'ora ogni minuto, che sarebbe meglio, ma ho provato e non ci sono riuscito.

Ecco il codice come l'ho scritto:

Questo codice è scritto nella cartella di lavoro:

Option Explicit

Private Sub Workbook_Open()

Application.OnTime TimeValue("08:30:00"), "Aggiorna"

Application.OnTime TimeValue("09:20:00"), "Aggiorna"

Application.OnTime TimeValue("10:10:00"), "Aggiorna"

Application.OnTime TimeValue("11:20:00"), "Aggiorna"

Application.OnTime TimeValue("12:10:00"), "Aggiorna"

Application.OnTime TimeValue("13:00:00"), "Aggiorna"

Application.OnTime TimeValue("14:00:00"), "Aggiorna"

Application.OnTime TimeValue("14:50:00"), "Aggiorna"

End Sub

Nel modulo ho scritto:

Sub Aggiorna()

Sheets("Prospetto").Range("C2").Calculate 

Sheets("Prospetto").Range("X2").Calculate 

End Sub

Non riesco a capire perché non richiama la Sub.

Grazie a tutti per l'aiuto.

Answer 1

Ciao Domenico,

qui Daniele, bentrovato nella community Microsoft,

Probabilmente perché stai lanciando la macro dal workbook open, richiama dal workbook open una funzione che sta nello stesso modulo della funzione aggiorna.

Se vuoi lanciarlo ogni tot secondi basta che la restarti, vedi questo esempio:

https://1drv.ms/x/s!AmEDljrOgi7EgZdVfWra55AQ_tI...

Answer 2

Ti ringrazio tantissimo Daniele. Il codice funziona, l'unica cosa è che se apri a metà del minuto lui si aggiorna a metà minuto, ho messo un minuto perché un secondo è troppo.

Infinitamente grazie.