Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Arslanbey - 21 Ağustos 2011, 22:14:03

Başlık: Listbox verileri alfabetik sıralama
Gönderen: Arslanbey - 21 Ağustos 2011, 22:14:03

Kod: [Seç]

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
            If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

Kod: [Seç]

Private Sub UserForm_Initialize()
For i = 1 To 20
    ListBox2.AddItem Cells(i, 1).Value
Next i
Liste = ListBox2.List
ListBox2.List = Sirala(Liste)
End Sub bu kodları kullanıyorum listbox alfabetik sıralamak için fakat sıralama yapmıyor alfabetik sıralam için nasıl bir değişiklik yapmam lazım.

Başlık: Ynt: Listbox verileri alfabetik sıralama
Gönderen: Arslanbey - 22 Ağustos 2011, 19:05:09

Konu hala güncelliğini koruyor.

Başlık: Ynt: Listbox verileri alfabetik sıralama
Gönderen: Arslanbey - 23 Ağustos 2011, 21:56:08

Lütfen en azından yol gösterin.

Başlık: Ynt: Listbox verileri alfabetik sıralama
Gönderen: Bülent Öztürk - 23 Ağustos 2011, 22:19:30

Örnek olarak inceleyebilirsiniz:

http://www.excelvba.net/viewtopic.php?f=9&t=164

http://www.excelvba.net/viewtopic.php?f=37&t=455

http://www.excel.gen.tr/Makale_021.asp

Başlık: Ynt: Listbox verileri alfabetik sıralama
Gönderen: Arslanbey - 23 Ağustos 2011, 22:33:12

Teşekkür ederim yol gösterdiğiniz için hocam Bülent bey.