ComboBox harf sırasına koymak

[imdatsaral]

Günaydın,
Aşağıda kodları kullanıyorum. ComboBox harf sırasına koymak istiyorum Liste açıldığında harf sırasını takip etsin istiyorum.
Kullandığım Dosyayı sizinle paylaşmak istedim ama dosyam büyük olduğundan dolayı yükleyemedim.
kullandığım kodları yazıyorum.

Private Sub ComboBox1_Change()
Set s1 = Sheets("Sipariş")
ss = s1.[B65536].End(3).Row
ListBox2.Clear
For i = 9 To ss
If s1.Cells(i, 2).Value = ComboBox1.Value Then
ListBox2.AddItem
ListBox2.ListIndex = ListBox2.ListCount - 1
For j = 0 To 3
ListBox2.Column(j) = s1.Cells(i, j + 1)
Next
End If
Next i
End Sub


Ayrıca ThisWorkbok'ta şu kodlar mevcut

Private Sub Workbook_Open()
Set s1 = Sheets("Sipariş")
Sheets("Cikti").ComboBox1.Clear
For i = 9 To s1.[B65536].End(3).Row
If WorksheetFunction.CountIf(Range(s1.Cells(1, 2), s1.Cells(i - 1, 2)), s1.Cells(i, 2)) <= 0 Then
Sheets("Cikti").ComboBox1.AddItem s1.Cells(i, 2)
End If
Next
End Sub

İmdat SARAL
İzmir

 

[imdatsaral]

konuyla ilgili aram yaptım yapılan işlemler UserForm üzerinde olduğu için kendim için uyarlayamadım. yardımcı olursanız sevinirim. ComboBox'da açılan liste uzun olduğundan böyle birşey istiyorum.

İmdat SARAL
İzmir

 

[imdatsaral]

Bu istediğim harf sırasına göre dizme işlemi ComboBox için yapılamaz?

 

[Orion1]

Siz soruyu yanlış sormuşsunuz.Comboboxları sıarlayın demişsiniz.Oysa şimdi anlaşılıyor ki comboboxın içindeki veriler sıralanacak.Aşağıdaki kodlar işinizi görür.

Sub harf_sirasına_gore_sirala()
Dim i As Long, j As Long, x As Variant
For i = 0 To Sheets("Cikti").ComboBox1.ListCount - 2
    For j = i + 1 To Sheets("Cikti").ComboBox1.ListCount - 1
        If StrComp(Sheets("Cikti").ComboBox1.List(i, 0), Sheets("Cikti").ComboBox1.List(j, 0), vbTextCompare) = 1 Then
            x = Sheets("Cikti").ComboBox1.List(i, 0)
            Sheets("Cikti").ComboBox1.List(i, 0) = _
            Sheets("Cikti").ComboBox1.List(j, 0)
            Sheets("Cikti").ComboBox1.List(j, 0) = x
        End If
    Next j
Next i
End Sub

 

[imdatsaral]

Teşekkür ederim Evren

 

[Orion1]

Teşekkür ederim Evren

Rica ederim.
iyi çalışmalar. (cool: