LİSTBOX KAYITLARINI SIRALAMA

[sralsral]

Ben commandbuttona tıklayınca listboxtaki kayıtları a dan z ye sıralamasını istiyorum.Nasıl kod girebilirim?(listbox verileri a1:a5555 ten alıyor)
şimdiden teşekkürler

 

[Tankut SAZLI]

bu kodu deneyin.

Private Sub CommandButton1_Click()
Liste = ListBox1.List
ListBox1.List = Sirala(Liste)
End Sub

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

 

[sralsral]

Çok teşekkür ederim.