Listbox verileri alfabetik sıralama

[Arslanbey]

Kod: [Seç]

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
            If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

Kod: [Seç]

Private Sub UserForm_Initialize()
For i = 1 To 20
    ListBox2.AddItem Cells(i, 1).Value
Next i
Liste = ListBox2.List
ListBox2.List = Sirala(Liste)
End Sub bu kodları kullanıyorum listbox alfabetik sıralamak için fakat sıralama yapmıyor alfabetik sıralam için nasıl bir değişiklik yapmam lazım.

[Arslanbey]

Konu hala güncelliğini koruyor.

[Arslanbey]

Lütfen en azından yol gösterin.

[Bülent Öztürk]

Örnek olarak inceleyebilirsiniz:

http://www.excelvba.net/viewtopic.php?f=9&t=164

http://www.excelvba.net/viewtopic.php?f=37&t=455

http://www.excel.gen.tr/Makale_021.asp

[Arslanbey]

Teşekkür ederim yol gösterdiğiniz için hocam Bülent bey.