userform üzerindeki combobox tan veriler süzüldükten

[yasef]

userform üzerindeki combobox taki veriler

combobox ın listesinde alfabetik olarak sıralanabilirmi

 

[yasef]

bir yorum yok mu

 

[emrexcel123]

combobox

arkadaşım vallahi ya ben göremiyorum ya da sen koymamışsın ama comboboxlar nerede ?:::?

 

[yasef]

command button1 tıklayınca açılan userformda comboboxlardan bahsediyorum

 

[veyselemre]

Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("dene").Select
For a = 2 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range("d2:d" & a), Cells(a, "d")) = 1 Then ComboBox1.AddItem Cells(a, "d")
Next

[COLOR=Red]lst = ComboBox1.List
For k = LBound(lst) To UBound(lst) - 1
    For l = k + 1 To UBound(lst)
        If StrComp(lst(k, 0), lst(l, 0), vbTextCompare) = 1 Then
            gec = lst(k, 0): lst(k, 0) = lst(l, 0): lst(l, 0) = gec
        End If
    Next
Next
ComboBox1.List = lst
Erase lst[/COLOR]

ListBox1.RowSource = "dene!a2:r" & Range("a20000").End(3).Row
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "70;70;60;100;100;100;50;60;50;60;60;50;25;60;60;30;30;30"
End Sub

 

[yasef]

teşekkürler veyselemre

 

[SaDiCH_FaCTioN]

bi teşekkür de benden, daha önce aramıştım ama bulamamıştım.