combobox alfabetik sıralama

[ynsmrshn]

konu ile ilgili çok fazla araştırma yaptım fakat cevap bulamadım.

Userformun initalize kısmına aşağıdaki kodları yazarak combobox a ilgili sayfasındaki e sutununda bulunan verileri benzersiz şekilde listeleyebiliyorum.

Private Sub UserForm_Initialize()
sonsatir = WorksheetFunction.CountA(wsilgili.Range("A:A"))

For i = 2 To sonsatir
If WorksheetFunction.CountIf(wsilgili.Range("E2:E" & i), wsilgili.Cells(i, 5)) = 1 Then
frmilgili.cmbieunvan.AddItem wsilgili.Cells(i, 5).Value
End If
Next i
End Sub

combobox dropbutton click eventine hangi kodu yazarak ekli olan verileri alfabetik olarak sıralayabilirim.Excel sayfasında sıralama yapmak istemiyorum.Sadece combobx içinde yapmalıyım.Listview de ekli olan verileri;

With ListView1
.SortKey = 5
.Sorted = True
.SortOrder = lvwAscending
End With

bu kodlarla kolaylıkla alfabetik sıralama yapabiliyoruz. combobox tada benzer kodlar mevcut mu?

Şimdiden yardımlarınız için teşekkürler.

 

[ÖmerBey]

Merhaba,
Öncelikle foruma hoşgeldiniz.
Combobox1 için sıralama kodu aşağıdadır, kendi dosyanıza uyarlayınız.

Private Sub ComboBox1_DropButtonClick()
For a = LBound(ComboBox1.List) To UBound(ComboBox1.List) - 1
    For b = a + 1 To UBound(ComboBox1.List)
        If ComboBox1.List(b) < ComboBox1.List(a) Then
            x = ComboBox1.List(a)
            ComboBox1.List(a) = ComboBox1.List(b)
            ComboBox1.List(b) = x
        End If
    Next
Next
End Sub

 

[halit3]

Alternatif linkler
Combobox için
https://www.ozgrid.com/forum/forum/help-forums/excel-general/141978-sorting-combo-box-on-a-userform
Listbox için
https://www.ozgrid.com/forum/forum/tip-tricks-code/62398-sort-listbox-alphabetically-or-numerically
https://www.mrexcel.com/forum/excel-questions/841777-sort-listbox-items.html

 

[ynsmrshn]

Merhaba,
Öncelikle foruma hoşgeldiniz.
Combobox1 için sıralama kodu aşağıdadır, kendi dosyanıza uyarlayınız.

Private Sub ComboBox1_DropButtonClick()
For a = LBound(ComboBox1.List) To UBound(ComboBox1.List) - 1
    For b = a + 1 To UBound(ComboBox1.List)
        If ComboBox1.List(b) < ComboBox1.List(a) Then
            x = ComboBox1.List(a)
            ComboBox1.List(a) = ComboBox1.List(b)
            ComboBox1.List(b) = x
        End If
    Next
Next
End Sub

Ömer bey çok teşekkür ederim.Sıralama problemim çözüldü.