Listbox Yavaş Yükleme Sorunu

[Tasarım]

Arkadaşlar merhaba, elimde 3 bin kişilik bir liste var ve bu liste ilk açıkuşta geç yükleniyor ve metin kutusu ile liste kutusu içerisinde kişi sorgusu yapıtmaz zaman sadece isimler birinci sütuna geliyor. Benim istağim dinleme ve sorgulama yağım zaman 4 sütunun da listboxda gözükmesi.

Bu konuda sizlerden yardım bekliyorum. Örnek dosyayı ekledim.

 

[Korhan Ayhan]

Merhaba,

Verileri Userform açılışında ListBox nesnesine yüklemek için döngüye gerek yok.. Döngüler veri sayısı arttıkça yavaş performans oluşmasına sebep olur.

En hızlı yöntem RowSource yöntemi olacaktır.

Private Sub UserForm_Initialize()
    Dim My_Column As Integer, No As String
  
    With ListBox1
        .ColumnCount = 4
        .RowSource = "Sayfa1!A2:D" & Cells(Rows.Count, 1).End(3).Row

        My_Column = Cells(1, Columns.Count).End(1).Column
      
        For X = 1 To My_Column
            No = No & CLng(Columns(X).Width) & ";"
        Next
      
        .ColumnWidths = No
        .ColumnHeads = True
    End With
End Sub

 

[Tasarım]

Merhaba,

Verileri Userform açılışında ListBox nesnesine yüklemek için döngüye gerek yok.. Döngüler veri sayısı arttıkça yavaş performans oluşmasına sebep olur.

En hızlı yöntem RowSource yöntemi olacaktır.

Private Sub UserForm_Initialize()
    Dim My_Column As Integer, No As String
 
    With ListBox1
        .ColumnCount = 4
        .RowSource = "Sayfa1!A2:D" & Cells(Rows.Count, 1).End(3).Row

        My_Column = Cells(1, Columns.Count).End(1).Column
     
        For X = 1 To My_Column
            No = No & CLng(Columns(X).Width) & ";"
        Next
     
        .ColumnWidths = No
        .ColumnHeads = True
    End With
End Sub

Korhan hocam bir de listboxda hızlı sorgulama konusunda yardımcı olsanız. Örneğin isminde "Ahmet" geçenlerin hepsini sorgulayabilir mi?

 

[Korhan Ayhan]

Linkte güzel bir konu işlenmişti... İnceleyebilirsiniz. Konu başlığında farklı başlıklara yönlendirme var. Onlarıda incelemenizi tavsiye ederim.

ListBox Sorgulamayı Hızlandırma ?

Merhabalar 15060 satır ve 9 sütunda verinin bulunduğu excel sayfamda VBA ile sorgulama yapıyorum. Arama sonucu listboxta seçtiğim bilgiye denk gelen hücreleri de ekrana yansıtıyorum. Ancak ekrana yansıtmam gereken 7 veriyi tümden yansıtınca vba, excel donuyor kapanıyor. 2 veya 3 veri...

www.excel.web.tr

Yetersiz gelirse diğer sonuçlarda inceleyebilirsiniz.

Arama Sonuçları

 

[Tasarım]

Merhaba,

Verileri Userform açılışında ListBox nesnesine yüklemek için döngüye gerek yok.. Döngüler veri sayısı arttıkça yavaş performans oluşmasına sebep olur.

En hızlı yöntem RowSource yöntemi olacaktır.

Private Sub UserForm_Initialize()
    Dim My_Column As Integer, No As String
 
    With ListBox1
        .ColumnCount = 4
        .RowSource = "Sayfa1!A2:D" & Cells(Rows.Count, 1).End(3).Row

        My_Column = Cells(1, Columns.Count).End(1).Column
     
        For X = 1 To My_Column
            No = No & CLng(Columns(X).Width) & ";"
        Next
     
        .ColumnWidths = No
        .ColumnHeads = True
    End With
End Sub

Korhan hocam verdiğiniz kodlar çok güzel çalıştı, liste çok çabuk yükleniyor fakat verdiğiniz linklerdeki sorgulamaların hepsini tek tek yapmaya çalıştım ama bir türlü yapamadım.
Sorgulama konusunda da sizden yardım bekliyorum mümkünse.