İnternette izlediğim bir videoda combobox içindeki veriler butonun tıklandığı olayına yazılan kodla alfabetik sıralanıyordu. Ben bu kodları kendi uygulamamda formun yüklendiği yordamına yazdığımda syntax hatası alıyorum. Bu kodlar formun yüklendiği olayında çalışması için nasıl revize edilir. Ya da bu tarz işlemler için Başka dillerde olan hazır bir sort metodu yok mu. Yardımlarınız için teşekkür ederim. Normalde bu hatanın neden kaynaklandığını merak ediyorum. sıralamayla ilgili başka çözümler uygulayabiliyorum ama burda ki hata nedir.
Kod:
Private Sub UserForm_Initialize()
ComboBox_Sistem.List = Array("Aldox", "Bioclimatic", "Cam Tavan", "Hareketli Cam Tavan", "Pergole", "Rüzgar Kırıcı", "Tavan Perde", "Wintent")
ComboBox_Sistem.ListIndex = 0
trh = CStr(Format(Date, "ddmm"))
TextBox_Tarih.Value = Format(Date, "dd.mm.yyyy")
TextBox_SiraNo = WorksheetFunction.Max(TEKLIFLER.Range("A2:A" & Rows.Count)) + 1
Me.TextBox_TeklifNo.Value = teklif_no
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")
On Error Resume Next
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 Width
End Sub![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
