Buona giornata, @Leccese62;
ho dato uno sguardo al Tuo File e, relativamente a "UserForm1", ho riscontrato alcune incongruenze.
Cercando di attivarlo tramite il Pulsante "Inserisce Contratto" UserForm1 non viene attivato in quanto il Codice VBA "Trova_Celle_Localita" cerca una Cella vuota nel Range.
- Cells(8,3), Cells(8,30)
In questo Range non ci sono Celle Vuote:
987654321 8400012456 789456123 123456789 741852963 x x x x x x x x x x x x x x x x x x x x x x x
Qundi no si attiverà mai.
Supponiamo di togliere la "x" in Cella "H8"; a questo punto UserForm1 si attiva e il cursore si posiziona in Cella "H8".
Ora, veniamo al problema che lamenti.
Questo dipende dall'Evento:
- CommandButton2_Click
Questo Evento si occupa di:
- Copiare il N° del Contratto selezionato nella Cella attiva
- Azzerare il contenuto di ComboBox1, TextBox1, TextBox2, TextBox3, TextBox4
- Chiudere UserForm1 (UserForm1.Hide)
Il problema che genera l'errore è proprio nell'azzeramento di ComboBox1; questo attiva l'evento "ComboBox1_Change" che, non trovando alcun Valore nelle Colonne di ComboBox1, genera l'errore '381'
Quello che mi permetto di consigliarti è di modicare l'Evento ComboBox1_Change in"
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
TextBox1 = ComboBox1.Column(1)
TextBox2 = ComboBox1.Column(2)
TextBox3 = ComboBox1.Column(3)
TextBox4 = ComboBox1.Column(4)
End If
End Sub
Dovrebbe funzionare.
A disposizione.
Buon fine settimana.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013