Listbox verileri tarihe göre sıralama

[mukoli]

Merhabalar ekteki dosyada listbox 2 tarih arası veri alabiliyorum . Fakat gelen verileri listbox başlangıç tarihine göre sıralama yapamadım. Sayfada sıralama olmasını istemiyorum . diğer sorunda textbox boş olunca hata veriyor çözümlerinizi bekliyorum teşekkür ederim

 

[ÖmerBey]

Merhaba,
Sıralama için aşağıdaki kod bloğunu deneyiniz...

Dim a As Integer, b As Integer, c As Byte, x As String
For a = LBound(ListBox1.List) To UBound(ListBox1.List) - 1
    For b = a + 1 To UBound(ListBox1.List)
        If CDate(ListBox1.List(a, 5)) > CDate(ListBox1.List(b, 5)) Then
            For c = LBound(ListBox1.List, 2) To UBound(ListBox1.List, 2)
                x = IIf(IsNull(ListBox1.List(a, c)), "", ListBox1.List(a, c))
                ListBox1.List(a, c) = IIf(IsNull(ListBox1.List(b, c)), "", ListBox1.List(b, c))
                ListBox1.List(b, c) = x
            Next
        End If
    Next
Next

 

[mukoli]

Hocam emeğinize sağlık çok teşekkür ederim . Departmana göre sıralamak istediğimde nasıl yapmam gerekir.

 

[ÖmerBey]

Departmana göre sıralamak istediğimde nasıl yapmam gerekir.

If sorgusunu değiştirmeniz yeterli. If ListBox1.List(a, 2) > ListBox1.List(b, 2) Then

 

[mukoli]

Çok teşekkürler emeginize sağlık tekrardan iyi akşamlar dilerim

 

[ÖmerBey]

Rica ederim,
İyi akşamlar, iyi çalışmalar...