combobox u alfabetik nasıl listelerim?

[pitsss]

iyi akşamlar arkadaşlar
combobox3 e b sütünundaki benzersiz verileri şu şekilde alıyorum

Sheets("sayfa1").Select
Set s1 = Sheets("sayfa1")
For x = 2 To s1.Cells(65536, "d").End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("b2:b" & x), s1.Cells(x, "b")) = 1 Then
ComboBox3.AddItem s1.Cells(x, "b").Value
End If
Next

ancak gelen veriler alfabetik gelmiyor bunu nasıl benzersiz ve alfabetik alabilirim.


yalnız verilerimi şu kodu kullanarak sıralamak istemiyorum .yani sayfa 1 deki sutunu alfebetik sıralamasın.sadece combobozun içindeki verileri sıralasın.

olumns("D:AC").Select
    Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

ayrıca
combobox3 e gelen verilerden birini seçince combobox 4 ve onunla ilgili veriler geliyor. aynı şekilde burada da alfabetik sıralansınlar istiyorum.
bunu nasıl başarabilrim acaba?
teşekkürler herkese.

Private Sub ComboBox3_Change()
ComboBox4.Clear
Sheets("sayfa1").Select
Set s1 = Sheets("sayfa1")
For x = 2 To s1.Cells(65536, "d").End(xlUp).Row
If s1.Cells(x, "b") = ComboBox3.Value Then
If WorksheetFunction.CountIf(s1.Range("c2:c" & x), s1.Cells(x, "c")) = 1 Then
ComboBox4.AddItem s1.Cells(x, "c").Value
End If
Else
End If
Next
End Sub

 

[Orion1]

Dosyanız ekte.

Function sirala(dizi)
Dim i As Long, j As Long, x As Variant
For i = LBound(dizi) To UBound(dizi) - 1
    For j = i + 1 To UBound(dizi)
        If dizi(i, 0) > dizi(j, 0) Then
            x = dizi(i, 0)
            dizi(i, 0) = dizi(j, 0)
            dizi(j, 0) = x
        End If
    Next j
Next i
sirala = dizi
End Function