Aranan Verinin Listboxta isaretlenmesi.

[yildirim2004]

Selam arkadaslar,
Kayit icerisinde Personel adina göre arama yapiyorum, o personel e ait veriler combobox a geliyor.

Listbox da da tüm kayitlar görünüyor. istedigim sey su, herahangi, veri aradigim zaman onu combocox a getiriyor fakat listbox ta isaretlesin..

Simdiden cevaplariniz icin tesekkür ederim

Private Sub find_Click()

aranan = txtPersonel.Value
Range("b:b").find(aranan).Select
sil_satir = ActiveCell.Row
txtTarih.Value = Worksheets("Giris").Cells(sil_satir, 1)
txtPersonel.Value = Worksheets("Giris").Cells(sil_satir, 2)
txtDers.Value = Worksheets("Eingabe").Cells(sil_satir, 3)
txtBaslamasaati.Value = Worksheets("Giris").Cells(sil_satir, 4)
txtBitissaati.Value = Worksheets("Giris").Cells(sil_satir, 5)