pulsanti di comando

[gianni]

Salve, sono nuovo di questo NG e vorrei ringraziare fin da ora tutti
quanti vorranno darmi utili suggerimenti. Vengo al dunque: ho inserito
in un foglio di calcolo un pulsante di comando che mi attiva una macro,
vorrei che alla pressione di questo pulsante la macro mi apra un msgbox
con due pulsanti di opzione che mi dia la possibilità di scegliere se
proseguire con la macro oppure tornare indietro (ad es: "sei sicuro di
voler proseguire?" |Yes| oppure |No| ). Qualcuno mi può dire come
fare?

[Ignazio]

"gianni" <***@email.it> ha scritto nel messaggio news:***@g14g2000cwa.googlegroups.com...
Salve, sono nuovo di questo NG e vorrei ringraziare fin da ora tutti
quanti vorranno darmi utili suggerimenti. Vengo al dunque: ho inserito
in un foglio di calcolo un pulsante di comando che mi attiva una macro,
vorrei che alla pressione di questo pulsante la macro mi apra un msgbox
con due pulsanti di opzione che mi dia la possibilità di scegliere se
proseguire con la macro oppure tornare indietro (ad es: "sei sicuro di
voler proseguire?" |Yes| oppure |No| ). Qualcuno mi può dire come
fare?

-------------------
RISPOSTA

Ciao Gianni,
prova ad adattare questo:

Sub TestMsgBox()
Dim Scelta As Long
'
Scelta = MsgBox("sei sicuro di voler proseguire?", Buttons:=vbYesNo)
If Scelta = vbYes Then
' ... (tuo codice)
Else
Exit Sub
End If
End Sub

[gianni]

Avrei solo una domanda da fare. Dove dovrei inserire queste stringhe?
All' interno della macro che vorrei controllare oppure nell' oggetto
ThisWorkbook del foglio di calcolo?

[gianni]

Ci sono degli sviluppi. Ho capito dove inserire il codice ma mi dà un
messaggio di errore di compilazione in:
[ Scelta MsgBox("sei sicuro di voler proseguire?", Buttons:vbYesNo)
]
Che fare?

[Ignazio]

"gianni" <***@email.it> ha scritto nel messaggio news:***@g47g2000cwa.googlegroups.com...
Ci sono degli sviluppi. Ho capito dove inserire il codice ma mi dà un
messaggio di errore di compilazione in:
[ Scelta MsgBox("sei sicuro di voler proseguire?", Buttons:vbYesNo)
]
Che fare?

------------
RISPOSTA

Usa:
[ Scelta MsgBox("sei sicuro di voler proseguire?", vbYesNo) ]
o (meglio), fa riferiemto al codice postato da Norman.

[Ignazio]

Post by gianni
Avrei solo una domanda da fare. Dove dovrei inserire queste stringhe?
All' interno della macro che vorrei controllare oppure nell' oggetto
ThisWorkbook del foglio di calcolo?

Dovresti inserirle nella macro associata al pulsante che avvia la macro.
A tal riguardo è più esplicativo (oltre che molto meglio impostato) il
codice di esempio postato da Norman (: ciao Norman :)

[Norman Jones]

Ciao Ignazio,

Post by Ignazio
Dovresti inserirle nella macro associata al pulsante che avvia la macro.
A tal riguardo è più esplicativo (oltre che molto meglio impostato) il
codice di esempio postato da Norman (: ciao Norman :)

In effetti, abbiamo suggerito la medesima soluzione!
Saluti!

---
Regards,
Norman

[gianni]

Avrei solo una domanda da fare. Dove dovrei inserire queste stringhe?
All' interno della macro che vorrei controllare oppure nell' oggetto
ThisWorkbook del foglio di calcolo?

[Norman Jones]

Gianni ha scritto:

Salve, sono nuovo di questo NG e vorrei ringraziare fin da ora tutti
quanti vorranno darmi utili suggerimenti. Vengo al dunque: ho inserito
in un foglio di calcolo un pulsante di comando che mi attiva una macro,
vorrei che alla pressione di questo pulsante la macro mi apra un msgbox
con due pulsanti di opzione che mi dia la possibilità di scegliere se
proseguire con la macro oppure tornare indietro (ad es: "sei sicuro di
voler proseguire?" |Yes| oppure |No| ). Qualcuno mi può dire come
fare?
'----------------------------------

Ciao Gianni,

Prova:
'=============>>
Private Sub CommandButton1_Click()
Dim Res As Long

Res = MsgBox(Prompt:="Vuoi continuare?", _
Buttons:=vbYesNo, _
Title:="Continuare?")

If Res = vbNo Then Exit Sub

'Tuo codice, e.g.
MsgBox "Ciao"

End Sub
'<<=============

---
Regards,
Norman