Snasui Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
    Sheets("Data_Seminar").Select
    Range("I4").Select
    Do While Not IsEmpty(ActiveCell.Value)
                    ComboBox111.AddItem ActiveCell.Value
                    ActiveCell.Offset(1, 0).Select
    Loop

End Sub

Code: Select all

Private Sub UserForm_Initialize()
    Dim unsorted As Boolean, i As Integer
    Dim r As Range, temp As Variant
    Application.ScreenUpdating = False
    With Sheets("Sheet1")
        Set r = .Range("D4", .Range("D" & Rows.Count) _
            .End(xlUp))
    End With
    With ComboBox1
        .Clear
        .List = r.Value
        unsorted = True
        Do
            unsorted = False
            For i = 0 To UBound(.List) - 1
                If .List(i) > .List(i + 1) Then
                    temp = .List(i)
                    .List(i) = .List(i + 1)
                    .List(i + 1) = temp
                    unsorted = True
                    Exit For
                End If
            Next i
        Loop While unsorted = True
    End With
    Application.ScreenUpdating = True
End Sub