Skip to main content

AccessTr.neT


Commondbutton İle Userform Açma

ferhat karagozlu
ferhat karagozlu
9
1350

Commondbutton İle Userform Açma

#7
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)
.rar İZMİR İLÇE TESCİLLERİ.rar (Dosya Boyutu: 443,9 KB | İndirme Sayısı: 1)
Cevapla
#8
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.

[Resim: do.php?img=10964]
.rar İZMİR İLÇE TESCİLLERİ rowsource.rar (Dosya Boyutu: 452,93 KB | İndirme Sayısı: 4)
Cevapla
#9
(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.

[Resim: do.php?img=10964]


Çok çok teşekkür ederim tam istenen durumda. Ellerinize sağlık.
Cevapla
#10
Rica ederim,kolay gelsin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task