Listbox sorunu

[gkhnaktas]

Herkese kolay gelsin.
Ekteki dosyada sayfa2 deki ad-soyad verilerini textbox a girilen karaktere göre aratarak listbox a aktarıyor ve listboxda değer seçildiğinde sayfa2 de ilgili ad-soyad a ait diğer bilgileri label de göstermeye çalıştım.
Fakat biryerde takıldım. Eğer aynı ad-soyad a sahip birden fazla kişi varsa listbox da seçilen değeri değiştirmeme rağmen labeldeki değerler aynı kalıyor. kodlar aşağıda ve dosya ekte.
Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

Private Sub txtAd_Change()

ListBox1.Clear
UserForm1.txtAd.Text = UCase(UserForm1.txtAd.Text)
ad = UserForm1.txtAd.Value

For Each cell In Sheets("Sayfa2").Range("b3:b88")
    If cell.Value Like "*" & ad & "*" Then
        ListBox1.AddItem (cell.Value)
    End If
Next

End Sub


Private Sub ListBox1_Click()

Set x = Sheets("Sayfa2").Range("b2:b88").Find(ListBox1.Text, LookAt:=xlWhole)

UserForm1.Label3.Caption = _
"ÜYE NO:" & vbTab & vbTab & x.Offset(0, -1).Value & vbCrLf & _
"ADI SOYADI :" & vbTab & x.Value & vbCrLf & _
"BABA ADI: " & vbTab & x.Offset(0, 1).Value & vbCrLf & _
"DOĞUM TARİHİ: " & vbTab & x.Offset(0, 2).Value

End Sub

 

[Mehmet Şahin]

merhabalar,
dosya ektedir.

 

[gkhnaktas]

çok teşekkürler sayın dentex.
sorunsuz çalışıyor.