ComboBox ta stündaki değerlere göre sıralama

[taseraydin]

değerli üstad arkadaşlar
değerlere göre comboboxa değerler atama yapmak istiyorum
örnek dosya ektedir

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Sheets("A.STATÜ").Range("A5:C65536").ClearContents
Sheets("B.STATÜ").Range("A5:C65536").ClearContents
Sheets("A.STATÜ").Range("A5").Resize(ComboBox1.ListCount, 3) = ComboBox1.List
Sheets("B.STATÜ").Range("A5").Resize(ComboBox2.ListCount, 3) = ComboBox2.List
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long, sat2 As Long, sat3 As Long
ComboBox1.ColumnCount = 3
ComboBox2.ColumnCount = 3
ComboBox1.ColumnWidths = "0;0;150"
ComboBox2.ColumnWidths = "0;0;150"
sat = Sheets("DATA").Cells(65536, "A").End(xlUp).Row
For i = 5 To sat
    If UCase(Sheets("DATA").Cells(i, "C").Value) = "A" Then
        ComboBox1.AddItem
        ComboBox1.Column(0, sat2) = sat2 + 1
        ComboBox1.Column(1, sat2) = Sheets("DATA").Cells(i, "A").Value
        ComboBox1.Column(2, sat2) = Sheets("DATA").Cells(i, "B").Value
        sat2 = sat2 + 1
    ElseIf UCase(Sheets("DATA").Cells(i, "C").Value) = "B" Then
        ComboBox2.AddItem
        ComboBox2.Column(0, sat3) = sat3 + 1
        ComboBox2.Column(1, sat3) = Sheets("DATA").Cells(i, "A").Value
        ComboBox2.Column(2, sat3) = Sheets("DATA").Cells(i, "B").Value
        sat3 = sat3 + 1
    End If
Next i
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0
End Sub

 

[taseraydin]

İlginize teşekür ederim
mükemmel olmuş...
yanlız statülere göre sayfalara aktarıldığında o sayfaya ait 1 den sıralıyarak sıra numarası verdirebilirmiyiz.

 

[Orion1]

İlginize teşekür ederim
mükemmel olmuş...
yanlız statülere göre sayfalara aktarıldığında o sayfaya ait 1 den sıralıyarak sıra numarası verdirebilirmiyiz.

Dosyayı düzenledim.
2 numaralı mesajdan inidrebilirsiniz.

 

[taseraydin]

çok teşekürler emeğinize elinize sağlık

 

[Orion1]

çok teşekürler emeğinize elinize sağlık

Rica ederim.