Combobox alphabetical order?

**lnk2013** · 08-19-2011, 01:49 PM

Hello!

I used the code from this dependent combobox thread:
http://www.excelforum.com/excel-prog...mbo-boxes.html
Woorkbook: Copy of Combo Box.xlsm

to create a list of unique items in my comboBoxes, and control the autofilter. But the items in the combobox are not in alphabetical/numerical order... how could I accomplish this?

**Mordred** · 08-19-2011, 02:45 PM

Have you tried sorting them alphabetically first and then adding them to the combo box?

**jaslake** · 08-19-2011, 03:05 PM

Hi lnk2013

Check this link. It includes a download sample file for you to play with. C:\VBA Code\ComboBox\VBA ExpressExce...dered list.mht

**shg** · 08-19-2011, 03:19 PM

This will sort a combobox or listbox:

Function SortTheBox(vCtl As Variant) As Boolean
    Dim i         As Long
    Dim j         As Long

    If Not IsObject(vCtl) Then Exit Function

    Select Case TypeName(vCtl)
        Case "ComboBox", "ListBox"
            With vCtl
                For i = 1 To .ListCount - 1
                    For j = 0 To i - 1
                        If .List(i) < .List(j) Then
                            .AddItem .List(i), j
                            .RemoveItem i + 1
                            Exit For
                        End If
                    Next j
                Next i
            End With

            SortTheBox = True
    End Select
End Function

E.g.,