combox ile seçim

[leyhus]

Değerli arkadaşlar herkese günaydın,
verileri user form aracılığı ile girmek istiyorum.
user formda bir combobox var. bu comboxta seçtiğim ismi tıkladığım zaman
aşağıdaki textboxlara ve exceldeki hücreleri bilgilerinin gelmesini yapmak istiyorum ama bir türlü beceremiyorum. yardımcı olursanız sevinirim.
Şimdiden ALLAH razı olsun.

 

[leyhus]

yardımcı olacak yokmu.

 

[leyhus]

Acaba yanlış yerdemi soruyorum. Yardımcı olacak üstad yokmu

 

[Ali]

Textbox sıranızı Textbox1'den Textbox5'e kadar sıralı olarak düzenledikten sonra Combobox1'in içine aşağıdaki kodları ekleyiniz.

Private Sub ComboBox1_Change()
Dim Bul As Range
Set Bul = Worksheets("Sayfa1").Range("A:A").Find(ComboBox1)
If Not Bul Is Nothing Then
TextBox1 = Bul
End If
If Not Bul Is Nothing Then
TextBox2 = Bul.Offset(, 1)
End If
If Not Bul Is Nothing Then
TextBox3 = Bul.Offset(, 2)
End If
If Not Bul Is Nothing Then
TextBox4 = Bul.Offset(, 3)
End If
If Not Bul Is Nothing Then
TextBox5 = Bul.Offset(, 4)
End If
Worksheets("Sayfa1").Range("B20") = TextBox1
Worksheets("Sayfa1").Range("C20") = TextBox2
Worksheets("Sayfa1").Range("D20") = TextBox3
Worksheets("Sayfa1").Range("E20") = TextBox4
Worksheets("Sayfa1").Range("F20") = TextBox5
End Sub

 

[leyhus]

teşekkür ederim kardeş ALLAH razı olsun.