(27/09/2021, 12:49)Oğuz Türkyılmaz yazdı:     ComboBox_RalKodu.List = Array("Bronz", "Eloksal", "Ahşap Desen Açık Meşe", "Ahşap Desen Koyu Meşe", "Altınmeşe", "7016", "9005", "7021 Mat", "Beyaz", "9010 Mat", "9010 Parlak", "9010 Texture", "7021 Parlak", "7021 Texture", "9016 Mat", "9016 Texture", "9016 Parlak", "9005 Parlak", "9005 Texture", "9005 Mat", "7016 Mat", "7016 Texture", "7016 Parlak", "8028 Mat", "8028 Parlak", "8028 Texture", "8016 Mat", "8016 Texture", "8016 Parlak", "9006 Mat", "9006 Parlak", "9006 Texture", "7006 Parlak", "7006 Texture", "7006 Mat", "8003 Mat", "8003 Parlak", "8003 Texture", "7039 Texture", "1013 Mat", "1013 Parlak", "1013 Texture")

Bunun altına alttaki kodlada sıralama yaptırılabilinir abey.

Dim dic As Object, x As Integer

Set dic = CreateObject("System.collections.arraylist")



For x = 0 To ComboBox_RalKodu.ListCount - 1

    dic.Add ComboBox_RalKodu.List(x)

Next



ComboBox_RalKodu.Clear

dic.Sort

ComboBox_RalKodu.List = dic.toarray

Set dic = Nothing