combobox alfabetik sıralama

[ahmet79]

aşağıdaki kodlarla comboboxa listelediğim verileri alfabetik şekilde sıralayabilirmiyim?

For A = 1 To Cells(65535, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Range("B1:B" & A), Cells(A, 2).Value) = 1 Then
UserForm1.ComboBox1.AddItem Cells(A, 2).Value
End If
Next A

 

[Levent Menteşoğlu]

Yazdığınız kod comboboxa verilerin tekrarsız alınması içindir. Verilerin sıralı alınması için önce sayfa üzerinde sıralama yapıp sonra comboboxa verileri almanızdır. Bunun için aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=2066&highlight=s%FDral%FD

 

[ahmet79]

sayın leventm raiderin vermiş olduğu kodları çalıştıramadım hata veriyor acaba benim bilgisayardamı problem var excel2000 türkçe kullanıyorum

 

[Levent Menteşoğlu]

Sn Raider'in vermiş olduğu kodun en başına comboboxa veri alınan satırı eklerseniz sorun çözülecektir. Ã?rneğin;

[vb:1:db17845a0a]Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a2:a20"
Dim MyRng As Range
Set MyRng = Range("AA1:AA" & ComboBox1.ListCount)
MyRng = ComboBox1.List
MyRng.Sort Key1:=Range("AA1"), Order1:=xlAscending
ComboBox1.RowSource = MyRng.Address
Set MyRng = Nothing
End Sub[/vb:1:db17845a0a]

 

[ahmet79]

ilginize teşekkürler şimdi çalıştı :hey:

 

[serdar_ileri]

Levent Menteşoğlu Bu kod çok işime yaradı teşekkürler