listboxa verileri nasıl alfabetik sıralatabilrim?

[pitsss]

arkadaşlar kolay gelsin.

listboxa giriş sayfamdan verileri alıyorum ancak
bu gelen veriler alfebetik sıraya göre dizilmiyor bunu nasıl sağlayabilrim?

Private Sub UserForm_Initialize()
' mahalle
Set s1 = Sheets("giris")
Sheets("giris").Select
For z = 2 To s1.Cells(65536, "e").End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("e2:eb" & z), s1.Cells(z, "e")) = 1 Then
ComboBox3.AddItem s1.Cells(z, "e").Value
End If
Next

End Sub

 

[CaSpi]

Columns("E:E").Select
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Comboda bu kodları çalıştırırsan istediyin olcak. Başarılar.

 

[halit3]

aşağıdaki kodu denermisiniz

Private Sub CommandButton1_Click()
Liste = ListBox1.List
ListBox1.RowSource = ""
ListBox1.List = Sirala(Liste, ListBox1.ColumnCount, 1)
End Sub

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