3bin küsur 1 saniye sürdü.
https://resim.accesstr.net/do.php?img=11022
Dim dic_col As Object: Set dic_col = CreateObject("System.Collections.ArrayList")
If ComboBox_FirmaUnvani > 0 Then
With dic_col
For i = 0 To ComboBox_FirmaUnvani.ListCount - 1
If Not dic_col.Contains(CStr(ComboBox_FirmaUnvani.List(i, 0))) Then _
.Add CStr(ComboBox_FirmaUnvani.List(i, 0))
Next
.Sort: ComboBox_FirmaUnvani.Clear: ComboBox_FirmaUnvani.List = .toarray: .Clear
End With
End If
Application.ScreenUpdating = True
Set dic_col = Nothing