+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Commondbutton İle Userform Açma (/konu-commondbutton-ile-userform-acma.html)
Sayfalar:
1
2
RE: Commondbutton İle Userform Açma - feraz - 28/04/2021
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)RE: Commondbutton İle Userform Açma - feraz - 28/04/2021
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.
RE: Commondbutton İle Userform Açma - ferhat karagozlu - 03/05/2021
(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.
RE: Commondbutton İle Userform Açma - feraz - 03/05/2021
Rica ederim,kolay gelsin.