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)
