Avviso prima di eseguire una macro

[thunder78]

Ho 2 tabelle pivot che si interfacciano a 2 tabelle di database esterni. L'aggiornamento di queste 2 pivot richiede un pò di tempo pertanto quando voglio eseguire la macro di aggiornamento ed estrapolazione dati mi servirebbe un messaggio del tipo:

"L'aggiornamento potrebbe richiedere quanlche minuto. Desideri aggiornare i dati? SI NO

Se SI eseguo l'aggiornamento, se NO non lo aggiorna però esegue un'altra macro che è quella di estrapolazione/elaborazione dei dati.

Come fare?

Grazie. Marco.

[Anthony47]

Ciao Marco,
dovresti mettere in testa al tuo codice qualcosa come questo:

Codice: Seleziona tutto

Mess = "L'aggiornamento potrebbe richiedere qualche minuto. Desideri aggiornare i dati? SI/NO"
scelta = MsgBox(Prompt:=Mess, Buttons:=vbYesNo)
If scelta = 6 Then Call Aggiorna    '6 = SI; 7=No
' continua con le istruzioni per estrapolazione / elaborazione dati

Presuppone che tu abbia messo in una macro di nome Aggiorna il codice per l’ aggiornamento; oppure puoi organizzare diversamente il test If – then –else e inserire tutto sulla stessa macro.

Prova e fai sapere!

[thunder78]

E' perfetto! Grazie.