Combobox a göre Textboxa veri çekme

[ebedyolcusu]

Merhaba

Combobox4 de seçtiğim verinin karşılığının textbox8 e gelmesini istiyorum.

comcobox4 de seçilen veri sayfası a sütununda
textbox8 e gelecek ise veri sayfası b sütununda

Private Sub ComboBox4_Change()

TextBox8 = Sheets("veri").Cells(ComboBox4.ListIndex + 2, "B")
End Sub

Private Sub UserForm_Initialize()
ComboBox4.RowSource = "veri!a7:b" & [veri!b65536].End(3).Row
End Sub

böyle bişey uyarladım başka örneklerden ama olmadı..

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

ComboBox4.ListIndex değeri 0 dan başlayarak seçilenin liste içindeki satır numarası verir. B sütunu 7. satırdan başladığı için +7 yapmak gerekir.

Private Sub ComboBox4_Change()
    TextBox8.Text = Sheets("veri").Cells(ComboBox4.ListIndex + 7, "B")
End Sub

.

 

[ebedyolcusu]

Teşekkür ederim şimdi oldu ..