Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCELL 2010 MsgBOX prima di esecuzione Macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCELL 2010 MsgBOX prima di esecuzione Macro

Postdi DERED » 28/10/13 16:55

Salve,

Vorrei sapere se è possibile far apparire un messaggio di "avviso" che dica
"Sei sicuro di voler cancellare tutto?" prima dell'esecuzione di questa Macro

Codice: Seleziona tutto
Sub Cancella1()
'
' Cancella1 Macro
'

'
    Range("A3:D15,H3:I15,R3:S15").Select
    Range("R3").Activate
    ActiveWindow.SmallScroll Down:=15
    Range("A3:D15,H3:I15,R3:S15,B20:D31,H20:H31").Select
    Range("H20").Activate
    ActiveWindow.SmallScroll ToRight:=6
    Range("A3:D15,H3:I15,R3:S15,B20:D31,H20:H31,U3:Z31").Select
    Range("Z31").Activate
    Selection.ClearContents
    Range("U3:Z3").Select
    Range("Z3").Activate
    Selection.ClearContents
    ActiveWindow.LargeScroll ToRight:=-1
    Range("A3").Select
End Sub


Grazie ;)
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Sponsor
 

Re: EXCELL 2010 SmgBOX prima di esecuzione Macro

Postdi KITT » 28/10/13 17:31

ciao, il seguente codice ti chiede se vuoi confermare la cancellazione, se clicchi no esce dalla sub altrimenti procede con quanto previsto dal tuo codice che metterai nella parte relativa a "else".

spero di esserti stato utile.

ciao

Codice: Seleziona tutto
sub cancella ()
     Dim ChiediConferma As Integer
    ChiediConferma = MsgBox("Confermi la cancellazione?", vbYesNo)
        If ChiediConferma = vbNo Then
            exit sub
                 else
                    'qui metti la tua routine
        End If
end sub
KITT
XP - OFFICE 2003 - ENG
WIN 7 - OFFICE 2010 - ENG
Avatar utente
KITT
Utente Junior
 
Post: 71
Iscritto il: 16/05/11 08:20

Re: EXCELL 2010 SmgBOX prima di esecuzione Macro

Postdi DERED » 29/10/13 10:25

Grazie kitt veramente gentile, funziona perfettamente. :lol:
WIN 7 Office 2010
Avatar utente
DERED
Utente Junior
 
Post: 15
Iscritto il: 22/10/13 12:03

Re: EXCELL 2010 MsgBOX prima di esecuzione Macro

Postdi KITT » 29/10/13 11:01

ciao DERED, sono contento se ti e' stato utile.
Buona programmazione!!! :)
KITT
XP - OFFICE 2003 - ENG
WIN 7 - OFFICE 2010 - ENG
Avatar utente
KITT
Utente Junior
 
Post: 71
Iscritto il: 16/05/11 08:20


Torna a Applicazioni Office Windows


Topic correlati a "EXCELL 2010 MsgBOX prima di esecuzione Macro":


Chi c’è in linea

Visitano il forum: patel e 50 ospiti