AccessTr.neT

Sorunnuzun çözümleri ekte.Yanlış felan varsa yazın bakalım abey.
A6:X en son satır arasında arar.Belirli sütunda aranacaksa byralar değişecek.

Listboxun en sonuna bir sütun daha ekledim çünkü aranan bulununca hücresini vermesi gerek zaten orjinalindede böyle yapmışlar.
ListBox1.ColumnWidths = "100;100;100;100;100;100;100;100;100;100" sondaki 100 yerine 0 yazarsanız listboxa eklediğim sütun gözükmez.

Alttaki gibi kullanısanız tam arananı bulur ve  mesela a* olarak aratırsanız  a ile çaşlayanlar *a* olarak ise içeren olarak arar.

Set k = ThisWorkbook.Sheets(syf).Range("A6:X" & Rows.Count).Find(ComboBox2.Value, , xlValues, 1)

Alttaki ise içeren olarak arar ve dosyada bu var.a yazmanız yeterli aramak için.

Set k = ThisWorkbook.Sheets(syf).Range("A6:X" & Rows.Count).Find("*" & ComboBox2.Value & "*", , xlValues, 1)

Bu dosyada rowsource ile yapıldı ListboxSayfa adında sayfa elkledim bu silinmemeli.

Resimdeki gibi listboxa başlıklar geliyor yani labele gerek yok ve arama için combobox yerine textbox ekledim.

(28/04/2021, 18:10)feraz yazdı: [ -> ]Bu dosyada rowsource ile yapıldı ListboxSayfa adında sayfa elkledim bu silinmemeli.

Resimdeki gibi listboxa başlıklar geliyor yani labele gerek yok ve arama için combobox yerine textbox ekledim.

Çok çok teşekkür ederim tam istenen durumda. Ellerinize sağlık.

Rica ederim,kolay gelsin.