vba2003:popolare combobox e selezionare secondo campo

[karug64]

Salve a tutti.
Sul form ho un text1 ed un combobox1
Nel foglio "Dati" in A1:A100 dei nomi ed in B1:B100 i relativi codici.
Dovrei popolare il combobox con i valori contenuti sul foglio "dati" in A1:A100 e quando seleziono un dato, dovrei avere sul text1 il codice relativo ....

Grazie

[ricky53]

Ciao,

1. per "popolare" la combobox devi impostare la proprietà "RowSource" con l'intervallo A1:A100

2. per trovare il valore corrispondente alla scelta fatta puoi utilizzare

Codice: Seleziona tutto

Private Sub ComboBox1_Click()
    UserForm1.TextBox1.Text = Range("B" & UserForm1.ComboBox1.ListIndex + 1)
End Sub

che va scritta nella finestra che ottieni con "Visualizza Codice" della "Userform"

Per Avviare la userform

Codice: Seleziona tutto

Sub Avvia_Userform()
    UserForm1.Show
End Sub



[Anthony47]

A quanto appena scritto da Ricky (vedi sopra) aggiungo che tutto quello che abbiamo detto sul ListBox (viewtopic.php?f=26&t=93824#p536876) e' applicabile anche al combobox; pertanto potrai usare anche qualcosa come

Codice: Seleziona tutto

TextBox1.Text = Range(ComboBox1.RowSource).Range("A1").Offset(ComboBox1.ListIndex, 1).Value

Ciao a tutti