Sayın Oğuz Türkyılmaz

İlgili kısmı alttaki şekilde değiştirerek dener misin?

With Me.ComboBox_RalKodu



        For x = LBound(.List) To UBound(.List)

            For y = x To UBound(.List)

                If .List(y, 0) < .List(x, 0) Then

                    alfabetik = .List(y, 0)

                    .List(y, 0) = .List(x, 0)

                    .List(x, 0) = alfabetik

                End If

            Next y

        Next x



    End With