Merhaba,
Kayıt setine tüm veriyi yükleyip eğer sorgusu ile veriler sorgulayıp ListBox nesnesine yüklemek yerine ado sorgusu içinde bu filtreyi yaptıktan sonra oluşan kayıt setini ListBox nesnesine yüklemek daha hızlı sonuç verebilir.
Sayın Orion, ben listbox ile yapmaya çalıştığım uygulamada aşağıdaki kod ile filtreleme yapıyorum. Bunun 10 sütun ile sınırlandığını sanmıştım, eksik bilgim varmış. Bu durumda listbox daha uygun ve mantıklı. Teşekkürler uyarınız için.
Sub Firma_Ara()
Set s1 = Sheets("Cari")...
Korhan moderatörüm ,Emeğinize sağlık , çok teşekkürler
listbox düzeldi istediğim gibi oldu .5 nolu mesaj daki sorumun cevabı alındı ve kod çok hızlı çalıştı .
Ancak sorumun cevabını vermiş olmanıza rağmen (kayan noktalı...) bir nevi tekrar gibi olacak ama 18 nolu mesajımdaki bu şu kısmı tekrar...
Korhan Bey teşekkürler,
Benim yüklemiş olduğum dosya ile sizin linkini paylaştığınız dosyalardaki uygulamalar arasında fark var. Fark var dememin sebei bana göre olanı ve vba dilini çok fazla bilmememden kaynaklanıyor. Yani benim için fazla olan konular. Eğer zaman alacak bir konu değilse...
@EKREM1661,
Ekteki dosyada gerekli revizyonu yaptım. Denemeler yapın olmayan yeri varsa revize ederiz.
Küçük hatırlatmalar;
ListBox nesnesinde başlık bölümünün sabit kalabilmesi için RowSource metodu kullanılması gerekiyor. Bu sebeple bu işlemlerin yapılabilmesi ve orjinal verilerinizin...
Merhaba,
Çok aramama rağmen, sorgu yaptığım tablonun başlıklarını Userform listbox listesinde RS.GetRows komutu ile beraber kullanamadım.
Farklı cevaplar olmasına rağmen, testlerimde RS.GetRows un daha hızlı sonuç aktardığını gördüğüm için bun uygun çözüm bulmak istedim.
Biraz uğraştırıcı...
Kod ile kısaca aşağıdaki işlemleri yapıyoruz.
--Listbox içeriğini temizliyoruz.
--LİSTE isimli değişkene sayfadaki A-E aralığındaki dolu hücrelerdeki verileri yüklüyoruz.
--Sonra VERİ isminde bir dizi oluşturuyoruz. Bu dizi sayfadaki veri satırı genişliğinde ve 5 sütundan oluşuyor.
--LİSTE...
devamı
Forumdan daha iyi faydalanabilmeniz için bazı öneriler;
1-Her zaman nazik bir hitap tarzı kullanın.
2- Birisi sorunuzu anlamazsa hoşgörülü olun ve gerekirse soruş şeklinizi gözden geçirin.
3- Birisinin cevabı sizin için yeterli açıklıkta değilse, cevaplayan kişinin sizin bilgi...
Askm hocam bu daha önceden yardımcı olduğunuz konu hakkında sizden bir ricam olacak
Bu listbox ile alakalı gönderdiğiniz kodu aktif bir şekilde kullanıyorum çokta işime yarıyor teşekkür ederim lakin şöyle bir sorun var
("D6") hücresine girdiğim müşteri numarasına (cari koduna) ait bilgiler...
Merhabalar,
Userformda 2 tane listbox var(1 ve 2), Listbox1 deki verileri excelden sorunsuz çekiyorum ve listem oluşuyor. Listbox2 ye ise 1 deki örneğin 2.satır 7.sütün değeri boşsa listbox2 ye çekmesini istiyorum. Onun için şu şekilde yazdım ama listbox1 deki veriyi okurken hata veriyor. Sarı...
Teşekkür ederim.
örnek dosyam
https://drive.google.com/open?id=1dUYVSZrTljlLShBt1AV3T2l2SOL0O2iL
Merhabalar, Araç Takip programı yapmaya çalışıyorum sonunada geldim. ancak tarih ile listbox ta süzme yapamadım.
excel sayfa adı =liste
tarih sütunu = "E" sütunu
Textbox1 ile Textbox2 tarih girip...
Korhan Bey
Verilerim şuan için yoğun olmayacak ileride olması durumunda sizin önerdiğiniz konu hakkında detaylı arama yaparım.
Bilgilendirmeniz için Teşekkürler.
Merhaba,
Veri sayınız çoksa döngü ile sonuca gitmeniz yavaş kalabilir. Bunun yerine alternatif olarak FIND komutu ile daha hızlı sonuca gidebilirsiniz.
Arama yaparsanız arşivdeki örneklere ulaşabilirsiniz.
Arama ifadesi olarak "ListBox+Find" kelimelerini kullanabilirsiniz.
Listbox olayını alttaki gibi hallettim.Düğün işe yaradı :geek::geek::geek::geek:
Bu arada Textbox değerini tüm seçtirmeyide buldum lazım olursa diye paylaşayım.En altta kod.
Private Sub TextBox1_Change()
Dim brr(): On Error GoTo son
Application.ScreenUpdating = False
With Me.ListBox1...
Evet hıcam bu seçeneği biliyordum.
Ama ben böyle ayar değiştirmek istemiyorum.
En doğrusu sütunlara numberformat uygulatmak galiba.bu dur
Bu db
Bu durum nasıl çözülebilir Transpose kullanılmadan?
Tam analatabilmek için userform,textbox ve listbox ekledim.
Kodddaki
' For i = 0 To .ListCount - 1
' .List(i, 2) = Format(.List(i, 2), "##,0.00")
' Next
olan yeri iptal ettim.
Birde ilgili yerleri ReDim Preserve brr(1 To say, 1 To 3) ve .List = brr yapınca neden işlem olmuyor...
Hocam, Bir sorum olacaktı. Listboxta az önce verdiğiniz kodları diğer projeye dahil ettim, Ama sıkıntım şu; Listbox üzerine sadece 56 adet kayıt getiriyor. Tüm sokak adlarını getirmiyor.
ListBox sayfada mı, UserForm'da mı?
En iyisi; hızlı ve doğru cevap almak isterseniz, "örnek" excel dosyanızı foruma iletin.
Örnek dosya ekleme konusunda bilgi edinmek isterseniz;
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
bakınız.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.