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.
birde aşağıdaki comboboxın koduna sıralama eklenmesi mümkün mü
Kod:
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
Kod:
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