Listbox veri dağıtımı

[ayhan09]

forumdaki ustaların çalışmalarından birşeyler kopyalayarak işime yarayabilecek birşeyler hazırlamaya çalıştım ama listbox kısmındaki kodlarda bir hata var sanırım. arama yaptıktan sonra listboxta tıklama yaptığımda o harfle başlayan köydeki ilk şahsın bilgilerini textboxa dağıtıyor. dosyayı ekledim. şimdiden teşekkürler.

 

[ayhan09]

yada şöyle anlatayım. Listboxta aşağıdaki kodu kullandım.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'LİSTBOXDA CİFT TIKLAMA

Dim rng As Range

If ListBox1.ListCount = 0 Then Exit Sub

Set rng = Sheets("sayfa2").Columns(2).Find(ListBox1, Lookat:=xlWhole)

If Not rng Is Nothing Then
Bulunan_Satir_No = rng.Row

TextBox1.Text = Sheets("sayfa2").Range("A" & Bulunan_Satir_No).Value
TextBox2.Text = Sheets("sayfa2").Range("B" & Bulunan_Satir_No).Value
TextBox3.Text = Sheets("sayfa2").Range("C" & Bulunan_Satir_No).Value
End If
Set rng = Nothing
End Sub

fakat listeden arama yapıp şahısı tıkladığımda filtrelediğim sütundaki (B) süzülen köydeki ilk şahsa ait bilgileri textboxlara dağıtıyor. kodda bir hatam var ama çok uğraşmama rağmen düzeltemedim. Bir göz atarsanız sevinirim.

 

[Skorpiyon]

Sayın ayhan09, kodunuzu aşağıdaki gibi düzenleyerek deneyiniz.


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim rng As Range
If ListBox1.ListCount = 0 Then Exit Sub
Set rng = Sheets("sayfa2").Columns(3).Find(ListBox1.Column(1), Lookat:=xlWhole)
If Not rng Is Nothing Then
bsn = rng.Row




... kodlarınız....



End Sub

 

[ayhan09]

teşekkür ederim elinize sağlık. problemim halloldu.

 

[Skorpiyon]

Rica ederim, iyi çalışmalar.