Errore Combobox

Hai un problema con Excel?

Nuova discussione

Errore Combobox
di trump61 data: 13/10/2015 02:28:28
Scusate sono di nuovo qui, con 6 codici come questo, in cui la differenza è solo il numero di ComboBox e il numero di TextBox, cerco da inserire nelle textBox il numero associato al nome selezionato dalla combobox. l'ho scritto un po di tempo fa ma poi non è stato utilizzato, ora che mi serve ho scoperto che non funziona, cioè non per tutti i nomi che seleziono dalla combobox, mi mette nella textbox il numero ad esso associato. Cosa che ormai mi succede sempre più spesso per me il codice è giusto, ma evidentemente no.
ho provato a modificare il codice inserendo :
CL.Select
TextBox3.Textbiate compassione di un = ActiveCell.Offset(0, -2).Value
ma non va, lo so che vi sto disturbando spesso ma abbiate compassione di un povero smemorato

Private Sub ComboBox1_Click()
Application.ScreenUpdating = False

Dim CL As Object 'dichiaro la variabile CL
For Each CL In Worksheets(1).Range("D9:D41")
'se la cella è uguale al valore selezionato nella combobox
If CL = ComboBox1.Text Then
'CL.Select
'allora seleziono le due celle a destra di quella trovata
TextBox3.Text = CL.Offset(0, -2).Value
'TextBox3.Text = ActiveCell.Offset(0, -2).Value

End If
Next
End Sub

di Raffaele_53 data: 13/10/2015 02:40:33
Prova fare queste piccole modifiche
Dim CL As range
If CL = ComboBox1.value Then
TextBox3 = CL.Offset(0, -2).Value
Casomai allega il file

di trump61 data: 13/10/2015 09:50:03
Ciao ti ringrazio per il tuo aiuto, ma il risultato era lo stesso.
Ho risolto cambiando il modo di caricare le combo con i codici qui sotto, però sinceramente non vedo perchè con il primo metodo non tutte le voci selezionate davano il valore numerico corrispondente nelle textBox.
sicuramente mi sfugge qualcosa, se qualcuno mi illuminasse mi farebbe piacere, così forse non cadrei nello stesso errore in caso dovessi trovarmi in una situazione simile, poi imparare cose nuove non è mai troppo tardi

Private Sub UserForm_Initialize()
Dim Q, U, T, F, S, N As Long
For Q = 1 To 29
ComboBox1.AddItem Choose(Q, "Bianchi", "Verdi", "Gialli", "Marroni", "Arancio", "Dadi", "Sfera", "Cubi", "Cerchi", "Piramidi")
Next
For U = 1 To 29
ComboBox2.AddItem Choose(U, "Bianchi", "Verdi", "Gialli", "Marroni", "Arancio", "Dadi", "Sfera", "Cubi", "Cerchi", "Piramidi")
Next
For T = 1 To 29
ComboBox3.AddItem Choose(T, "Bianchi", "Verdi", "Gialli", "Marroni", "Arancio", "Dadi", "Sfera", "Cubi", "Cerchi", "Piramidi")
Next
For F = 1 To 29
ComboBox4.AddItem Choose(F, "Bianchi", "Verdi", "Gialli", "Marroni", "Arancio", "Dadi", "Sfera", "Cubi", "Cerchi", "Piramidi")
Next
For S = 1 To 29
ComboBox5.AddItem Choose(S, ""Bianchi", "Verdi", "Gialli", "Marroni", "Arancio", "Dadi", "Sfera", "Cubi", "Cerchi", "Piramidi")
Next
For N = 1 To 29
ComboBox6.AddItem Choose(N, ""Bianchi", "Verdi", "Gialli", "Marroni", "Arancio", "Dadi", "Sfera", "Cubi", "Cerchi", "Piramidi")
Next
End Sub
con
Private Sub ComboBox6_Enter()
ComboBox6.RowSource = "Foglio1!D9:D39"
End Sub

di trump61 data: 13/10/2015 09:53:15
Scusate ho modificato il codice sopra per non far comparire dei cognomi chiaramente non è pi "For 1 to 29 ma For 1 to 10"

Vuoi Approfondire?