Soru Userform'da Textbox'a veri girerek başka sekmeden veri çekme

[ekremmk]

(TextBox2) ye yazılan sayıya göre otomatik olarak ad kısmına bilgiler sekmesinden veri çekilmesini istiyorum. Örnek verecek olursak userform'da (TextBox2) ye 10 yazıldığında otomatik olarak ad kısmında Ahmet çıkacak 100 yazıldığında Deniz çıkacak.

NOT: Bu problemi çözmenin yolunu bilmediğim için Listbox kullandım ancak başka bir şeyle yapılabiliyorsa ona çeviriniz lütfen. Ancak ad kısmında çıkacak veriye direkt değişiklik yapılamamalı sadece numara kısmına veri girince değişmeli

buraya tıklayarak örnek dosyaya ulaşabilirsiniz.
Şimdiden teşekkür ederim.

 

[Orion1]

Buyurun.

Private Sub TextBox2_Change()
Dim k As Range, sh As Worksheet
Set sh = Sheets("BİLGİLER")
Set k = sh.Range("B3:B" & Rows.Count).Find(TextBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    ListBox1.AddItem k.Offset(0, 2).Value
End If
End Sub

 

[ekremmk]

Buyurun.

Private Sub TextBox2_Change()
Dim k As Range, sh As Worksheet
Set sh = Sheets("BİLGİLER")
Set k = sh.Range("B3:B" & Rows.Count).Find(TextBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    ListBox1.AddItem k.Offset(0, 2).Value
End If
End Sub

Sayın hocam teşekkür ederim ilgin için
kodu denedim ancak şöyle bir sorun var;
10 yazdığımda istediğim veri geliyor
sonrasında 100 yazdığımda 10 dan gelen veriyi silmeden 100 den gelmesi gereken veriyi de yazıyor. Benim ihtiyacım olan 10 yazınca verinin gelmesi ve sonrasında 100 yazdığımda sadece 100 den gelmesini istediğim verinin gelmesi.

 

[Orion1]

Böylemi

Private Sub TextBox2_Change()
Dim k As Range, sh As Worksheet
Set sh = Sheets("BİLGİLER")
ListBox1.Clear
Set k = sh.Range("B3:B" & Rows.Count).Find(TextBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    ListBox1.AddItem k.Offset(0, 2).Value
End If
End Sub

 

[ekremmk]

Böylemi

Private Sub TextBox2_Change()
Dim k As Range, sh As Worksheet
Set sh = Sheets("BİLGİLER")
ListBox1.Clear
Set k = sh.Range("B3:B" & Rows.Count).Find(TextBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    ListBox1.AddItem k.Offset(0, 2).Value
End If
End Sub

Teşekkür ederim hocam elinize bilginize sağlık. ^_^

 

[Orion1]

Rica ederim.
iyi çalışmalar.