| | Post: 82 | Registrato il: 01/04/2016
| Città: MILANO | Età: 22 | Utente Junior | 2003 | | OFFLINE | |
|
27/01/2017 09:43 | |
Buongiorno,
avrei un problemino da porre, ho quattro userform, la quinta con il command button "chiudi":
Private Sub CommandButton13_Click()
Dim iRisposta As Integer
iRisposta = MsgBox("Stai per uscire, vuoi salvare il File ???", vbYesNoCancel)
Select Case iRisposta 'impostiamo il Select Case con riferimento al messaggio restituito dalla variabile iRisposta
Case vbYes 'se risponderemo "Si" :
Application.ExecuteExcel4Macro ("SAVE.AS?()")
Application.DisplayAlerts = False ' consente di non chiudere col messaggio di salvare o no
Application.Quit 'esci dall'applicazione
Case vbNo 'se sceglieremo "No":
Application.DisplayAlerts = False ' consente di non chiudere col messaggio di salvare o no
ActiveWorkbook.Save ' salva il file
Application.Quit 'esci dall'applicazione
Case Else
End Select
End Sub
quando clicco sul no, deve chiudere il lavoro, e alla riapertura, tutte le combobox e textbox di tutte le userform devono essere vuote.
qualcuno può aiutarmi.
grazie infinite.
|
|
| | Post: 3.657 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
27/01/2017 09:58 | |
di solito le combo si popolano con range del foglio all'apertura del documento, che senso ha svuotarle ? dovresti allegare un file di esempio per farci capire come è strutturato
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 82 | Registrato il: 01/04/2016
| Città: MILANO | Età: 22 | Utente Junior | 2003 | | OFFLINE | |
|
27/01/2017 10:25 | |
le devo svuotare per riaprire il file pulito.
|
| | Post: 83 | Registrato il: 01/04/2016
| Città: MILANO | Età: 22 | Utente Junior | 2003 | | OFFLINE | |
|
27/01/2017 10:30 | |
non c'è un modo tipo:
userform1.ComboBox120.Text = "" |
| | Post: 3.658 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
27/01/2017 11:44 | |
avevo dimenticato che chiedere a te un file di esempio è tempo perso
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 84 | Registrato il: 01/04/2016
| Città: MILANO | Età: 22 | Utente Junior | 2003 | | OFFLINE | |
|
27/01/2017 12:17 | |
grazie tante, ho risolto.
buona giornata.
|
|
|