listboxda sıralama

[eseseski]

merhaba
aşağıdaki kodda xlDescending komutunu nereye eklemeliyim ki listede isimlerin karşılığındaki büyük rakamdan aşağıya doğru sıralama yapsın


Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then
ListBox1.Clear
ListBox1.ColumnCount = 2
For i = 35 To Sheets.Count
If Sheets(i).Name <> "sayfa 1" Then
say = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(say, 0) = Sheets(i).Name
ListBox1.List(say, 1) = Sheets(i).Cells(3, ComboBox1.ListIndex + 1)
End If
Next
End If

End Sub

 

[hamitcan]

Sayfada sıraladıktan sonra ListBox a aktarabilirsiniz.

 

[eseseski]

sayfada sıralama yapmam zor çünkü veriler farklı sayfalardan geliyor

 

[hamitcan]

Nette bulduğum kodu paylaşıyorum. Kendinize uyarlamalısınız. Forumda da örnekler mevcut.

Private Function Diz(ByVal Dizim As Variant, Stn As Integer) As Variant
    Dim i, j, k As Long
    Dim Tmp As Variant
    Stn = Stn - 1
    For i = LBound(Dizim, 1) To UBound(Dizim, 1)
        For j = i + 1 To UBound(Dizim, 1)
            If Dizim(i, Stn) > Dizim(j, Stn) Then
                For k = LBound(Dizim, 2) To UBound(Dizim, 2)
                    Tmp = Dizim(j, k)
                    Dizim(j, k) = Dizim(i, k)
                    Dizim(i, k) = Tmp
                Next
            End If
        Next
    Next
    Diz = Dizim
End Function

 

[eseseski]

Teşekkür ederim