gestione eventi MsgBox

Hai un problema con Excel?

Nuova discussione

gestione eventi MsgBox
di Mauro (utente non iscritto) data: 12/01/2013 13:32:01
Ciao a tutti, ho registrato una macro che prima copia delle celle e poi cancella delle righe, quando eseguo il codice esce un messaggio "Sei sicuro di cancellare i dati" , a questo punto se volessi tornare indietro non si può più anche se premo la X rossa del messaggio, cosa si può fare?
Grazie in anticipo
Mauro

Sub Macro6()
'
' Macro6 Macro
' Macro registrata il 12/01/2013 da mauro
'

'
    Foglio14.Activate
    MsgBox ("Sei sicuro di cancellare i dati")
    
    Range("A13470:AH13506").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=18
    Range("A13507").Select
    ActiveSheet.Paste
    Range("A13470:B13506").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A13470:B13543"), Type:=xlFillDefault
    Range("A13470:B13543").Select
    ActiveWindow.SmallScroll Down:=-21
    Range("K13479").Select
    Rows("2:38").Select
    Selection.Delete Shift:=xlUp
    Range("AH6").Select
    
End Sub

di Vecchio Frac data: 12/01/2013 14:05:59
L'istruzione
MsgBox ("Sei sicuro di cancellare i dati")
presenta soltanto una finestrella col messaggio indicato e un pulsante "Ok", non c'è quindi altra scelta al povero utente e naturalmente l'esecuzione riprende da quel punto.
A te serve una message box con due pulsanti, Yes e No, e ti serve che in base al pulsante premuto l'esecuzione si fermi.
Sostituisci l'istruzione Msgbox con quella seguente, più articolata, e che lascio alla tua immaginazione (e anche alla Guida per i parametri).
if msgbox ("Sei sicuro di cancellare i dati?", vbQuestion + vbYesNo, "Attenzione...") = vbNo then exit sub
gestione eventi MsgBox
di Mauro (utente non iscritto) data: 12/01/2013 14:12:45
Grazie
Mauro

Vuoi Approfondire?