excelden userforma veri çekme

[mahmutozdemir]

slm,
userform üzerindeki combobox1 den bir isim seçtiğimizde veriler sayfasındaki o isme karşılık gelen verileri textbox1 ,textbox2 ,textbox3 ,textbox4 e getirebilirmi ?

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim k As Range
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("A2:A" & Rows.Count).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox1.Text = k.Value
    TextBox2.Text = k.Offset(0, 1).Value
    TextBox3.Text = k.Offset(0, 2).Value
    TextBox4.Text = k.Offset(0, 3).Value
End If
End Sub

 

[mahmutozdemir]

Sayın Evren Bey çok ilginiz için teşekkür ederim. Ama koda küçük problem vardı galiba
Private Sub ComboBox1_Change()
Dim k As Range
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("A2:A" & Rows.Count).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox1.Text = k.Offset(0, 1).Value
TextBox2.Text = k.Offset(0, 2).Value
TextBox3.Text = k.Offset(0, 3).Value
TextBox4.Text = k.Offset(0, 4).Value
End If
End Sub
yapınca düzeldi.

 

[Orion1]

Sayın Evren Bey çok ilginiz için teşekkür ederim. Ama koda küçük problem vardı galiba
Private Sub ComboBox1_Change()
Dim k As Range
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("A2:A" & Rows.Count).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox1.Text = k.Offset(0, 1).Value
TextBox2.Text = k.Offset(0, 2).Value
TextBox3.Text = k.Offset(0, 3).Value
TextBox4.Text = k.Offset(0, 4).Value
End If
End Sub
yapınca düzeldi.

kodlarda problem yok.ben denedim sonra yolladım size.

 

[mahmutozdemir]

İlginiz için gerçekten teşekkür ederim. TC kısmında İsim, Adres kısmında TC ,Meslek kısmında Adres ve Baba adı kısmına Meslek gelmiş.