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.
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.
Kod:
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
Ekli dosyalar
-
25.5 KB Görüntüleme: 6