Commondbutton İle Userform Açma

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.

Rica ederim,kolay gelsin.