Listboxdaki dataları A-Z sıralama

[oguzka]

Merhaba

Sayfadaki verilerin bir kısmını listbox a aktarıyorum.(listbox ım 4 kolonlu) Veriler aktarıldıktan sonra listboxdaki dataları A dan Z ye sıralamak istiyorum. Yardımcı olabilirmisiniz?

 

[ottoman71]

Örnek bir soya eklersen daha iyi yardımcı olabilirim

Listbox'taki verileri RowSource yaptırmadan önce aşağıdaki kodu ekle sıralayarak gelir. Fakat bu kodlar a sütunundaki verilere göre sıralıyor.

    Columns("A:D").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal