ListBox ta Artan Sıralama

[can042]

Bir sayfadaki verileri ListBox a aldığımız da ListBoxta bu verileri alfabetik sıralanmasını nasıl yapabilirim

 

[Mahmut Kök]

Bir sayfadaki verileri ListBox a aldığımız da ListBoxta bu verileri alfabetik sıralanmasını nasıl yapabilirim

Önce sayfada sıralatıp, sonra liste kutusuna alabilirsiniz. Listview'de sıralama var; ancak listbox'ta sıralı verinin en kolay yolu, sayfada sıralamaktır.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

Varsayımlar :
Veriler : B2:B100 aralığında
Malzemeler : Userform, Listbox1 ve CommandButton1
olmak kaydıyla aşağıdaki kodlar kullanılabilir.

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
    For j = i + 1 To ListBox1.ListCount - 1
        If ListBox1.List(i) > ListBox1.List(j) Then
           x = ListBox1.List(i)
           ListBox1.List(i) = ListBox1.List(j)
           ListBox1.List(j) = x
        End If
    Next j
Next i
End Sub
'----------------------------
Private Sub UserForm_Initialize()
ListBox1.List = Range("B2:B100").Value
End Sub

 

[can042]

Yeni kayıt yapınca sayfadaki sıralama kayboluyor

Sayın Hocam Yeni kayıt yapınca sayfadaki sıralama kayboluyor.Sayfa 1 e kayıt yapılıyor.Sayfa 2 ye raporlama olarak aktarılıyor.Aktarılan bilgiler ListBox ta sıralanmış olarak gözüküyor ama en son yapılan kayıt en altta gözüküyor.Kayıt butonuna tıklanınca yada listboxlu formda raporlama butonuna tıklanınca sıralayacak bir kod gerekiyor.

 

[can042]

Yardım....

Sayın Ferhat Hocam eklediğiniz çalışmayı inceledim ve dosyama uyguladım ama hata veriyor.Birde raporlama sayfasındaki bilgilerin bölümü (A) SÜTUN ARALIĞINDA ve D sütununa göre sıralama yapılacak.

 

[can042]

Dosyayı eklemedim çünkü limit üstü ağır bir dosya

 

[Ferhat Pazarçevirdi]

O zaman; Mahmut bey'in de dediği gibi, Listview kullanmanızda fayda var.

Çünkü, 16 sütun ve değişken satırlı bir diziyi sıralamaya sokmak, programınızın oldukça yavaşlamasına sebep olabilir.