- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
UserForm üzerinde ComboBox8 ve ComboBox9 var.ikisindede boşluk ve tekrarı önlemek istiyorum ve de Sıralamak
Private Sub UserForm_Initialize()
For a = 2 To Sheets("YURTICI").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("YURTICI").Range("B2:B" & a), Sheets("YURTICI").Cells(a, 2)) = 1 Then
ComboBox9.AddItem Sheets("YURTICI").Cells(a, 2).Value
End If
Next
ComboBox9.List = ListSort(ComboBox9.List) '"BURAYA KADAR SORUN YOK COMBOBOX9 U SIRALIYOR VE BOÃLUKLARI KALDIRIYOR
For z = 2 To Sheets("YURTICI").Cells(65536, 1).End(xlUp).Row
deger = Sheets("YURTICI").Range("C" & a)
If deger <> "" Then
ComboBox8.AddItem deger
End If
Next z
ComboBox8.List = ListSort(ComboBox8.List) '2.KISMI YANİ COMBOBOX8 İ NEDEN YAPMIYOR?
********
Function ListSort(liste As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, J As Integer
Dim Temp
First = LBound(liste)
Last = UBound(liste)
For i = First To Last - 1
For J = i + 1 To Last
If liste(i, 0) > liste(J, 0) Then
Temp = liste(J, 0)
liste(J, 0) = liste(i, 0)
liste(i, 0) = Temp
End If
Next J
Next i
ListSort = liste
End Function
Private Sub UserForm_Initialize()
For a = 2 To Sheets("YURTICI").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("YURTICI").Range("B2:B" & a), Sheets("YURTICI").Cells(a, 2)) = 1 Then
ComboBox9.AddItem Sheets("YURTICI").Cells(a, 2).Value
End If
Next
ComboBox9.List = ListSort(ComboBox9.List) '"BURAYA KADAR SORUN YOK COMBOBOX9 U SIRALIYOR VE BOÃLUKLARI KALDIRIYOR
For z = 2 To Sheets("YURTICI").Cells(65536, 1).End(xlUp).Row
deger = Sheets("YURTICI").Range("C" & a)
If deger <> "" Then
ComboBox8.AddItem deger
End If
Next z
ComboBox8.List = ListSort(ComboBox8.List) '2.KISMI YANİ COMBOBOX8 İ NEDEN YAPMIYOR?
********
Function ListSort(liste As Variant)
Dim First As Integer, Last As Integer
Dim i As Integer, J As Integer
Dim Temp
First = LBound(liste)
Last = UBound(liste)
For i = First To Last - 1
For J = i + 1 To Last
If liste(i, 0) > liste(J, 0) Then
Temp = liste(J, 0)
liste(J, 0) = liste(i, 0)
liste(i, 0) = Temp
End If
Next J
Next i
ListSort = liste
End Function