Сортировка дат в VBA

Question

Я пытаюсь отсортировать даты в списке, который содержит 3 столбца в порядке убывания.

У меня есть 2 списка, когда я нажимаю на элемент в первом списке, даты должны появиться во втором списке в порядке убывания.

Даты находятся во втором столбце и расположены на лист на ячейке (34, i), например:

me.listbox1.list(me.listbox2.listcount -1,1)=ws.Cells(34,i)

Я пробовал этот код, но он не работает для меня: (Listbox_click)

Dim y, x As Integer
Dim MyList As Variant

    With Me.ListBox_Histo_IT
        For y = 0 To .ListCount - 1
            For x = y To .ListCount - 2
                If .List(x, 1) < .List(y, 1) Then
                    For c = 0 To 2
                        MyList = .List(y, c)
                        .List(x, c) = .List(y, c)
                        .List(y, c) = MyList
                    Next c
                End If
            Next x

        .List(y, 2) = Format(.List(y, 2), "####.00")
        Next y
    End With

Мне нужна помощь, спасибо ты

Answer 1

Вот код: @ CDP1802 Он отлично работает Спасибо всем вам :) Dim y, x As Integer Dim MyList As Variant

With Me.ListBox_Histo_IT
    For y = 0 To .ListCount - 1
        For x = y To .ListCount - 2
            If CDate(.List(x, 1)) > CDate(.List(y, 1)) Then
                For c = 0 To 2
                    MyList = .List(x, c)
                    .List(x, c) = .List(y, c)
                    .List(y, c) = MyList
                Next c
            End If
        Next x

    .List(y, 2) = Format(.List(y, 2), "####.00")
    Next y
End With