comboboxlarda sıralama

[MOONROSE]

merhaba, aşağıdaki kodlar ile comboboxların listesi oluşuyor(daha önce bu siteden aldım kodları) .benim istediğim özellikle combobox 1 listesinin sıralı görünmesi. Çünkü burada firma isimleri var ve karışık olunca seçmek zor oluyor.Datanın bulunduğu yani ("U.IS EMRI LISTESI")nin activate olayına sortlama yapamıyorum.çünkü orada başka bir sort işlemi var. yardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
ComboBox1.Clear     
For A = 5 To Worksheets("U.IS EMRI LISTESI").Range("E65536").End(xlUp).Row
    For i = 1 To ComboBox1.ListCount
        If Worksheets("U.IS EMRI LISTESI").Range("E" & A) = ComboBox1.List(i - 1) Then GoTo 10
    Next i
        ComboBox1.AddItem Worksheets("U.IS EMRI LISTESI").Range("E" & A)
10:
Next A



Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear

For A = 5 To Worksheets("U.IS EMRI LISTESI").Range("E65536").End(xlUp).Row
    If Worksheets("U.IS EMRI LISTESI").Range("E" & A) = ComboBox1 And Worksheets("U.IS EMRI LISTESI").Range("j" & A) > 0 Then
        'sipariş no
        ComboBox2.AddItem Worksheets("U.IS EMRI LISTESI").Range("D" & A)
        ComboBox6.AddItem Worksheets("U.IS EMRI LISTESI").Range("D" & A)
        ComboBox7.AddItem Worksheets("U.IS EMRI LISTESI").Range("D" & A)
        ComboBox8.AddItem Worksheets("U.IS EMRI LISTESI").Range("D" & A)
        ComboBox9.AddItem Worksheets("U.IS EMRI LISTESI").Range("D" & A)
        ComboBox10.AddItem Worksheets("U.IS EMRI LISTESI").Range("D" & A)              
      
    End If
Next A
End Sub

birde aşağıdaki comboboxın koduna sıralama eklenmesi mümkün mü

Private Sub Worksheet_Activate()
'MÜÞTERİ
Set s1 = Sheets("TABAN MODEL FORMU")
Set s2 = Sheets("DTBS-FIRMA")
s1.ComboBox1.Clear
adres = s2.[B4:B65536].SpecialCells(xlCellTypeConstants, 3).Address
For Each hucre In s2.Range(adres)
If hucre <> 0 Then s1.ComboBox1.AddItem hucre
Next

 

[Levent Menteşoğlu]

Bu tip durumlarda comboboxa alınacak verilerin önce excel sayfası üzerine yazdırılmasını, sonra burada sıralanarak comboboxa alınmasını öneririm. Ã?rneğin aşağıdaki gibi deneyebilirsiniz. Burada verileri Z sütununa yazılıyor.

[vb:1:1125cc9b38]Private Sub Worksheet_Activate()
'MÜÞTERİ
Set s1 = Sheets("TABAN MODEL FORMU")
Set s2 = Sheets("DTBS-FIRMA")
s1.ComboBox1.Clear
adres = s2.[B4:B65536].SpecialCells(xlCellTypeConstants, 3).Address
For Each hucre In s2.Range(adres)
If hucre <> 0 Then
c=c+1
cells(c,"z")=hucre
end if
Next
[z:z].Sort Key1:=[a1]
s1.ComboBox1.RowSource="DTBS-FIRMA!z1:z" & c
End Sub
[/vb:1:1125cc9b38]