ListBoxu seçilen sütuna göre süz

[omeryılmaz]

Saygı Değer Arkadaşlar

Comboboxta seçilen başlığa göre Listbox6 da veri süzmek

Sorumla ilgili Listwievde çözüm buldum, ancak veri sayısı fazla olunca işlem çok uzun sürmekte.
Sadece çorluda kayıtlı malzeme sayısı 4700 civarında tüm İl geneline uygulandığı zaman işlem Listwievde saatlerce sürüyor.

Örnek dosya ektedir.

Yardım ve önerileriniz için şükranlarımı sunuyorum...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Label380_Click() 'SEÇİLENİ SÜZ
    Dim sut As Integer
    
    ListBox6.RowSource = ""
    ListBox6.ColumnHeads = False
    
    ReDim dizi(1 To 32, 1 To 1)
    sut = ComboBox1.List(ComboBox1.ListIndex, 1)
    
    For x = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(x, sut) = ListBox1 Then
            say = say + 1
            ReDim Preserve dizi(1 To 32, 1 To say)
            For y = 1 To 32
                dizi(y, say) = Cells(x, y)
            Next
        End If
    Next
    
    If say > 0 Then ListBox6.Column = dizi
End Sub

 

[omeryılmaz]

Büyük Dertten kurtardın.

Şükranlarımı sunuyorum eline yüreğine sağlık Korhan bey teşekkürler..