USERFORM içindeki listboxta arama yapmak

[Daglaroglu]

selamlar,

ekte -kusura bakmasın- hangi arkadaşın yaptığını unuttuğum bir form örneği var. Formda bulunan listbox içinde arama yapabilme özelliği eklenmiş ancak küçük bir detay gözden kaçmış sanırım. arama yapılarak süzülen verilere tıkladığımızda başka girişlerin kayıtları ekrana geliyor. Ornekte arama yapıp gelen ilk veriye cift tıkladığınızda yandaki alanlara baska kayıtların geldiğini görebilirsiniz. Bu hatayı düzeltmek için ne yapılabilir ?

 

[Orion1]

İşte dosyanız.

 

[Daglaroglu]

elinize sağlık, süper ! nereyi değiştirdiniz evren bey ?

 

[Orion1]

elinize sağlık, süper ! nereyi değiştirdiniz evren bey ?

2-3 prosedürde değişiklik yaptım.

 

[Ayhan Ercan]

biraz deneme yanılmayla şöyle bişey buldum. (kırmızı kodlar ilave edilen kodlar)

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Yeni_mi = False
    [B][COLOR=red]If bul.Text = "" Then Bulunan_Satir_No = ListBox1.ListIndex + 2[/COLOR][/B]
[B][COLOR=red]   If bul.Text <> "" Then Bulunan_Satir_No = Sheets("data").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row[/COLOR][/B]
   
 
        With Sheets("Data")
        TextBox1.Text = .Range("B" & Bulunan_Satir_No).Value
        TextBox2.Text = .Range("C" & Bulunan_Satir_No).Value
        TextBox3.Text = .Range("D" & Bulunan_Satir_No).Value
        ComboBox1.Text = .Range("E" & Bulunan_Satir_No).Value
        TextBox5.Text = .Range("F" & Bulunan_Satir_No).Value
        TextBox6.Text = .Range("G" & Bulunan_Satir_No).Value
        TextBox7.Text = .Range("H" & Bulunan_Satir_No).Value
        ComboBox2.Text = .Range("I" & Bulunan_Satir_No).Value
        TextBox9.Text = .Range("J" & Bulunan_Satir_No).Value
        TextBox10.Text = .Range("K" & Bulunan_Satir_No).Value
        TextBox11.Text = .Range("L" & Bulunan_Satir_No).Value
        TextBox12.Text = .Range("M" & Bulunan_Satir_No).Value
    End With
 
End Sub

 

[Daglaroglu]

çok çok teşekkürler . sorun kalmadı

 

[Orion1]

çok çok teşekkürler . sorun kalmadı

Benim yolladığım dosyayı kullanırsanız hatasız kesin sonuç alırsınız.
Başka türlü bir kullanımda hatalı sonuçlar alabilirsiniz.