ComboBox ile ListBox Süzme

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin vermiş olduğu örnek çalışma gerçekten çok güzel çalışıyor fakat bir noktayı belirtmekte fayda görüyorum. Son eklenen örneği indirip kayıt sayısını 10.000 lere kadar arttırdığımda ve arama yaptığımda yaklaşık 50 saniye gibi bir süre beklemek zorunda kaldım.

Bu açıdan düşündüğümüzde Sn. ripek'in sunmuş olduğu çözüm kayıt sayısının arttığı durumlarda da gayet hızlı çalışacaktır. Bu çözümünde tek problemi ise süzülen verilerin başka alana kopyalanıp oradan Listbox'a aktarılması ve bu sebeple dosya boyutunun büyümesidir.

 

[ilkiliroglu]

userformda bilgiyi listeleme

arkadaşlar
ekde gönderdiğim dosyada bir userform oluşturdum amaç çok fazla veriyi userformda listelemek istediğimizde arattığımız bilginin ayrıntılarını satır içinde değilde user formun üzerine yerleştirilmiş olan textboxlarda alt alta ya da yan yana görüntüleyebilmek ekteki oluşturduğum userformu aktif ederek kişinin adı ile arama yaptığımızda kişinin soyadı doğum tarihi ve yerini userformda olduğu şekilde form üzerinde listeleyebilirmiyiz ilginiz için teşekkürler

 

[niceman]

harika ya

Bu forumdan bukadar bilgi ve tecrübe edineceğim hiç aklıma gelmezdi, forumla tanışalı 10 gün kadar oldu, ama bilgilerim neredeyse ikiye katlandı, teşekkürler,
artık bir uygulama nasıl yapılırdan ziyade, üstadlar tarafından en hızlı nasıl çalıştırılır şekline değerlendiriliyor, bunları ben tasavvur bile edemiyorum, ama kendimce bide ben çalışma hızlarını ölçtüm sonuçlar şöyle çıktı.

10.000 satırlık bir uygulamada denendi ve Araç Ara: kısmına sadece d yazıldı.
veyselemre örneğinde : 1 dakika 17 saniyede süzüldü.
ripek örneğinde : milisaniyeler de süzüldü.
hamitcan örneğinde : 9 saniye 34 salisede süzüldü.

valla helal olsun. hepsininde ayrı bir güzelliği var. ayrı çalışma mantığı var.
arkadaşlarımın ellerine sağlık.

 

[Recep İpek]

Userform kapatıldığında Sayfa2'deki verileri silerek dosya boyutunun fazla artmaması sağlanabilir.Bunun için Userform'a aşağıdaki kodları ekleyebilirsiniz.

Not: 2. mesajdaki dosyayı buna göre güncelledim.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Sheets("Sayfa2").Cells.ClearContents
End Sub

 

[niceman]

Sıra numarasına konumlanmak.

Userform kapatıldığında Sayfa2'deki verileri silerek dosya boyutunun fazla artmaması sağlanabilir.Bunun için Userform'a aşağıdaki kodları ekleyebilirsiniz.

Not: 2. mesajdaki dosyayı buna göre güncelledim.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Sheets("Sayfa2").Cells.ClearContents
End Sub

Sn. Ripek
Evet dosyayı kayıt etmeden önce veya user formdan çıktıktan sonra sayfa2 deki verilerin silinmesi çok güzel oldu. dosya boyutu çözülmüş oluyor. Bir sorum olacak, listboxta seçili olan bir satırın sıra numarası misal 350 diyelim.
user form üzerine atanacak bir command buton ile, ana veri sayfasında bu 350 nci kayıtlı hücreyi seçebilirmiyiz, yani imleç o hücreyi seçmiş olsun.
eğer listboxta seçili olan verinin sıra numarasına konumlandırılabilirse, silme, değiştirme, yeniden Sıralama gibi işlemleri kendi başıma becerebilirim.

 

[Recep İpek]

Sanırım bu şekil istiyorsunuz.

Listbox üzerinde satır seçtiğinizde aynı zamanda A kolonunda da imleç ilgili hücreyi seçmektedir.

Not:Kendi dosyanızda Userformun özelliklerinden Showmodal=False,
Listbox özeliklerinde ise Multiselect=0...yapınız.


1x

 

[niceman]

tam istediğim gibi.

sn. ripek, konumlandırma harika oldu.
satır sayısını 70-80 e çıkarıp, combobox1 e
x yazıp, tekrar backspace ile silin, tekrar x yazın.
Ortaya nasıl bir tablo çıktı gördünüzmü. Aradığınız değerlerin arasında combobox a yazdığınız ilk harf eğer yoksa, tekrar silip tekrar aynı karakteri aradığınızda, listbox içeriği karman çorman oluyor. buna hiçbir anlam veremedim. kafam karıştı.

 

[ilkiliroglu]

arkadaşlar örnek bir dosya gönderiyorum içindeki userformlarda gerekli açıklamalar var ilgilenirseniz sevinirim

 

[Recep İpek]

Sn.niceman

Problemi tam olarak anlayamadım.Dediğiniz gibi x yazıp, sildikten sonra tekrar x yazdım.
Herhangi bir sorunla karşılaşmadım.

Örnekte 10 olan hücre aralıklarının hepsini verilerinize göre düzenlediniz mi?

 

[hakanbolat]

Sn.niceman

Problemi tam olarak anlayamadım.Dediğiniz gibi x yazıp, sildikten sonra tekrar x yazdım.
Herhangi bir sorunla karşılaşmadım.

Örnekte 10 olan hücre aralıklarının hepsini verilerinize göre düzenlediniz mi?

Sn: Ripek, Birde 3000 veya 5000 Satırda >Deneyiniz lütfen..

 

[Recep İpek]

5000 satırda denedim.Hata yok. :dusun:

Mümkünse hatanın resmini ekleyebilirmisiniz.Açıkcası merak ettim.

 

[niceman]

resim ekte

resim ekte.

 

[Recep İpek]

Bende bu hata oluşmuyor,Mail adresinizi bana özel mesaj ile gönserirseniz bendeki dosyayı size gönderebilirim

 

[olymposss]

sn üstadlarım

yeni bir konu açmak istemedim ama buradaki bilgileri kullanarak combobox ile süzme yapmak istedim ama kendime uyarlayamadım. dosyam ektedir. yardımcı olabilirmisiniz.
çok teşekkürler saygılar:yardim:

 

[ybilgin]

ekteki dosyayı inceleyebilirsin.

 

[ybilgin]

dosya bozukmuş.

sn. ripek, konumlandırma harika oldu.
satır sayısını 70-80 e çıkarıp, combobox1 e
x yazıp, tekrar backspace ile silin, tekrar x yazın.
Ortaya nasıl bir tablo çıktı gördünüzmü. Aradığınız değerlerin arasında combobox a yazdığınız ilk harf eğer yoksa, tekrar silip tekrar aynı karakteri aradığınızda, listbox içeriği karman çorman oluyor. buna hiçbir anlam veremedim. kafam karıştı.

bu hatanın sebebi kullandığım dosyanın bozuk olmasıymış, orjinal dosya ripek tarafından 26 nolu başlıkta verilmiştir. bu dosyada hata yoktur.

 

[ünal karadavut]

combo ile süz listbox ta göster

daha önce sitemizden indirmiştim. kendi programıma uyarlayacaktım. ama bir türlü yapamadım. ekteki programda aralara sütun ekledim. ama makrosu bozuldu. yardımcı olursanız sevinirim.

 

[ünal karadavut]

benim soruma henüz cevap yazan olmamış.
programdaki kodlar aralara boş sarı renkli sütun konmamış halidir. buna göre uyarlanması dileğiyle

herkese hayırlı sabahlar.

 

[hamitcan]

Sayın ünal karadavut, advanced filter ile bir örnek yaptım, faydalı olması dileğiyle.

Bunuda denedim.Fakat bu sefer veri sayfasında veriler süzülünce gizli olan satırlarıda Listbox'a alıyor.Bunun çözümünü bulabilirsem çok güzel olacak.

Sayın ripek' in 5 nolu mesajda belirttiği gizli satırların listbox içine aktarılmaması olayını gerçekleştirdim. Fakat filtreleme esnasında geçen süre yine uzun olabilir. Bu durumda süzülen verileri yine bir başka sayfaya aktarıp listbox ın rowsource özelliğini kullanmak daha mantıklı olacak kanaatimce.

 

[ünal karadavut]

combobox tan listboxa aktarmak

sayın hamitcan kardeşim çok sağol. ben daha önce yapılan çok hoşuma giden örneği göndermek istiyorum. bunu bir incelerseniz sevinirim. buna göre benim formuma uyarlarmanızı istiyorum.