listbox arayıpda bulamama

[ercens]

merabalar ,
sitenizden aldığım bir örnek üzerinde öğrenme amaçlı çalışıyorum,
fakat eklediğim dosya da, arama süzme kısmı sürekli yanlış verileri buluyor,
nerde hata yaptığımı anlıyamadım (sub_verial kısmı?) , yardımcı olurmusunuz

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz. Tam kontrol etmedim. Eksikleri olabilir. Siz tamamlarsınız.

 

[ercens]

ilgilendiğiniz için teşekkür ederim,
bir eklenti daha ilave ettim a-z ve z-a sıralama şeklinde.
fakat çözemediğim 1 aşama kaldı;

1-textboxta arama ypıyorum listboxta buluyor
2-text box sı silip arama yapmadan listboxdan herhangi bir veriye 2 kere tıkladığım zaman debug hatası verior?
ayrıca rakam girişlerinide kabul etmiyor

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.List(ListBox1.ListIndex, 3) = "" Then
sat = ListBox1.ListIndex + 3
Else
sat = ListBox1.List(ListBox1.ListIndex, 3)
End If

ComboBox1.Text = Cells(sat, "B")
ComboBox2.Text = Cells(sat, "C")
ComboBox3.Text = Cells(sat, "D")


End Sub

 

[Korhan Ayhan]

Merhaba,

Arama işleminde filtre yöntemi kullanılıyor. Filtre yönteminde sayısal verileri ile başlar yöntemi ile arayamazsınız. Eğer veri metin biçiminde ise kullanılabilir. Fakat excel sayısal verileri siz biçimlendirmediğiniz sürece metin olarak saklamaz. Bu sebeple sayısal veri araması yaptığınız nesnede filtreleme kodunda sadece "eşittir" ifadesini kullanmalısınız. Alternatif olarak For-Next döngüsü ile "içerir" ya da "ile başlar" yöntemi ile arama işlemi yapılabilir. Buradaki sıkıntı veri sayısı arttığında biraz yavaşlama yaşanmasıdır. Bunlarla ilgili forumda birçok örnek var. Madem öğrenmek istiyorsunuz biraz araştırarak kendinizde yapabilirsiniz. Zaten bu işler araştırıp deneme-yanılma yöntemiyle daha iyi öğrenilir.

Listbox nesnesindeki sorunu aşağıdaki kod ile çözebilirsiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.RowSource <> "" Then
        ComboBox1.Text = ListBox1.Column(0)
        ComboBox2.Text = ListBox1.Column(1)
        ComboBox3.Text = ListBox1.Column(2)
    Else
        sat = ListBox1.List(ListBox1.ListIndex, 3)
        ComboBox1.Text = Cells(sat, "B")
        ComboBox2.Text = Cells(sat, "C")
        ComboBox3.Text = Cells(sat, "D")
    End If
End Sub

 

[ercens]

tekrar teşekkür ederim
tavsiyelerinizi dikkate alıcam