textbox a otomatik olarak kod getirme

[mervebrlk]

Birinde müşteri isimleri diğerinde müşterilere ait kodlar olan iki listem var. Kayıt için oluşturduğum userformdaki combobox a rowsource olarak müşteri isimleri listesini tanımladım. textboxa da seçtiğim müşterinin kodu gelsin istiyorum ama yapamadım. yardımcı olabilir misiniz?

 

[PLİNT]

Merhaba
Kodlar "B" sütununda ve başlık satır yoksa aşağıdaki gibi deneyiniz.
Başlık satırı varsa "+ 1" yerine "+ 2" olarak değiştirirsiniz.

Private Sub ComboBox1_Change()
TextBox1 = Cells(ComboBox1.ListIndex + 1, "B")
End Sub

 

[mervebrlk]

evet oldu, teşekkürler.