Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Svuotare combobox e textbox di tutte le userform

Ultimo Aggiornamento: 27/01/2017 12:17
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.
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:43. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com