Errore Vba

[angelo72]

Buongiorno a tutto il forum,
Avrei bisogno di un aiuto. Dall' userform scelgo il foglio dalla combobox2 e con il pulsante cancella
mi va a cancellare un intervallo da B4:E34 del foglio scelto tranne che se nella combobox2 non è
stato scelto nulla mi va in errore VBA "debug" mi dice:errore di run-time 9, indice non incluso nell'intervallo
e si colora di giallo la seguente riga:
ThisWorkbook.Worksheets(ComboBox2.Text).Select
Quello che vorrei è eliminare questo errore qualora non dovessi scegliere nulla in combobo2

Il codice da me usato :

Private Sub CommandButton10_Click()

ThisWorkbook.Worksheets(ComboBox2.Text).Select


Range("B4:E34").Select
Selection.ClearContents
TextBox6 = ""
Range("F1").Select
End Sub

Grazie a chi vorrà aiutarmi

[ricky53]

Ciao,
l'errore sta indicare che il nome del foglio che è stato selezionato tramite ComboBox2.Text non esiste nel file su cui lavori

Cosa contiene ComboBox2.Text ?
Che nomi fogli hai scritto per caricare la ComboBox2 ?

[angelo72]

Grazie per aver risposto.

Cerco di spiegarmi , nella combobox2 ci sono dei nomi ad es. Rossi_Mario ed altri. Questi dati li và a prendere da un altro foglio dove sono stati inseriti. Ogni foglio è abbinato al nome del dipendente.
Se io scelgo un dipendente dalla combobox2 e pigio il pulsante Cancella il suo dovere lo fa cioè mi cancella da B4:E34... Il problema è questo: se io erroneamente pigio il pulsante Cancella senza aver effettuato prima una scelta nella combo2 , ecco che mi va in errore e vorrei eliminarlo.

[Anthony47]

Nell' ipotesi che nel combobox puoi solo avere Vuoto oppure un nome foglio corretto allora ti bastera' aggiungere questa riga in questa posizione:

Codice: Seleziona tutto

Private Sub CommandButton10_Click()
If Combobox2.Text = "" then Exit Sub        '<<< AGGIUNGERE
ThisWorkbook.Worksheets(ComboBox2.Text).Select

Ciao

[angelo72]

Grazie Anthony,
problema risolto! Io ho fatto tante di quelle prove e ricerche in rete ma senza risultati. Anche perchè di conoscenza VBA ne ho davvero poca, per non dire niente.
Era antipatico avere un pulsante che funzionava "diciamo" per metà.
Ancora grazie....

[Flash30005]

Magari se ti occorresse avere un messaggio che indichi "l'anomalia" puoi modificare il codice di Anthony così

Codice: Seleziona tutto

Private Sub CommandButton10_Click()
If Combobox2.Text = "" then
Msgbox "Manca il nome del foglio"  '<<< AGGIUNGERE
'<<<< aggiungere eventualmente codice selezione combobox in nota(*)
 Exit Sub        '<<< spostare qui
endif  '<<< AGGIUNGERE
ThisWorkbook.Worksheets(ComboBox2.Text).Select

(*) e volendo fare selezionare il Combobox con il dato mancante aggiungendo prima dell'Exit Sub

Codice: Seleziona tutto

UserForm1.ComboBox2.SetFocus

Ciao

[angelo72]

Grazie Flash30005.,
sei molto gentile, non male che mi avvisi con un msg, che manca la scelta della combobox2. Lo provato e va bene. Abbiamo ulteriormente migliorato....
Ancora Grazie....