MsgBox con macro chiusura

[Francesco53]

Buongiorno a tutti, chiedo se è possibile al tasto ok che appare in una MsgBox,
abbinare una macro che faccia chiudere il programma.
Grazie
Francesco

[Francesco53]

Grazie e scusate, ho risolto.
Francesco

[miko]

ciao Francesco,
potresti postare la soluzione che hai trovato a questo tuo problema?
molto spesso anche io ho necessità di modificare le sterili msgbox, ma non sempre riesco ad ottenere risultati soddisfacenti.
grazie saluti

[Anthony47]

Non so che soluzione ha adottato Francesco, ma visto che il msgbox non ha una sua programmazione il risultato e' che la macro che ha aperto il messaggio continua all' ok; quindi bastera' inserire dopo l' istruzione msgbox le istruzioni che ti servono.
Ricorda che il msgbox puo' avere differenti layout di "buttons", vedi l' help on line alla voce "Funzione MsgBox"; in questo esempio vengono mostrati i bottoni Si / No, consentendo una scelta:

Codice: Seleziona tutto

Scelta = MsgBox("Vuoi terminare?", vbYesNo)
If Scelta = vbYes Then ThisWorkbook.Close savechanges:=True


Per una cosa piu' articolata devi andare su una Userform, che e' un oggetto programmabile quindi molto piu' versatile.

Ciao

[Francesco53]

Scusa miko ho letto solo ora la tua richiesta, ho visto che ti ha dato delle indicazioni Anthony,
io ho risolto così:

Codice: Seleziona tutto

Dim Risp As Integer
Risp = MsgBox("Hai superato il limite di 100", vbOKOnly, "Fine elaborazione")
If Risp = 1 Then
Call Salva
End If
End If

Spero ti possa essere utile.
Francesco

[Francesco53]

Per mico, cusa c'è un If in più.
Codice corretto:

Codice: Seleziona tutto

Dim Risp As Integer
Risp = MsgBox("Hai superato il limite di 100", vbOKOnly, "Fine elaborazione")
If Risp = 1 Then
Call Salva
End If

Francesco

[miko]

buona sera a tutti
grazie ad entrambi per le vostre soluzioni;
sono senz'altro utili, almeno se siamo costretti ad usarli sappiamo come far proseguire
una macro.
i msgbox sono antiestetici e come indicato da anthony, spesso preferisco costruire delle form aventi lo stesso scopo.
saluti ed ancora grazie