comboboxtan seçilen isme göre textboxlara veri alma

[xp45s]

ekteki dosyada comboboxtan seçilen isme göre diger bilgilerin textboxlara gelmesini istiyorum.Fakat yazılan kodlarda bir sorun var bir türlü beceremedim.Yardımlarınızı rica ediyorum.

Private Sub ComboBox1_Initialize()
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "":
Dim yer, i As Integer
yer = 2
While Sheets(1).Cells(yer, 2) <> ""
yer = yer + 1
Wend
yer = yer - 1
For i = 2 To yer
If ComboBox1 = Sheets(1).Cells(i, 1) Then
TextBox1 = Sheets(1).Cells(i, 2)
TextBox2 = Sheets(1).Cells(i, 3)
TextBox3 = Sheets(1).Cells(i, 4)
TextBox4 = Sheets(1).Cells(i, 5)
End If
Next i
End Sub

 

[Orion1]

Dosyanız ekttedir.

Private Sub ComboBox1_Click()
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "":
If ComboBox1.ListIndex < 0 Then Exit Sub
TextBox1 = ComboBox1.Column(1)
TextBox2 = ComboBox1.Column(2)
TextBox3 = ComboBox1.Column(3)
TextBox4 = ComboBox1.Column(4)
End Sub

 

[xp45s]

sn evren hocam vermiş oldugunuz kodlar için teşekkürler.Yanlız vermiş oldugunuz kodları ekteki ana dosyamda bulunan personel bilgileri formu için kullandım fakat bir türlü çalıştıramadım.Yardımcı olursanız çok sevinirim

 

[Orion1]

Ben textbox9 a kadar yaptım.Diğerlerini siz yapın.
Dosyanız ektedir.

Private Sub combobox1_click()
Dim k As Range
TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "": TextBox6 = "": TextBox7 = "": TextBox8 = "": TextBox9 = "": TextBox10 = "": TextBox11 = "": TextBox12 = "": TextBox13 = "": TextBox14 = "": TextBox15 = "": TextBox16 = "": TextBox17 = ""
If ComboBox1.ListIndex < 0 Then Exit Sub
Set k = Sheets("Sheet1").Range("B2:B65536").Find(ComboBox1.Column(0), , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox2 = k.Value
    TextBox3 = k.Offset(0, 3).Value
    TextBox4 = k.Offset(0, 4).Value
    TextBox5 = k.Offset(0, 5).Value
    TextBox6 = k.Offset(0, 6).Value
    TextBox7 = k.Offset(0, 7).Value
    TextBox8 = k.Offset(0, 8).Value
    TextBox9 = ""
    TextBox10 = ""
    TextBox11 = ""
    TextBox12 = ""
    TextBox13 = ""
    TextBox14 = ""
    TextBox15 = ""
    TextBox16 = ""
    TextBox17 = ""
End If
End Sub

 

[xp45s]

sn evrem hocam eline koluna sağlık.3 günden beri çözmeye çalısıyorum yapamamıştım.Tekrar teşekkür ederim.

 

[Orion1]

sn evrem hocam eline koluna sağlık.3 günden beri çözmeye çalısıyorum yapamamıştım.Tekrar teşekkür ederim.

Rica ederim.
iyi çalışmalar.