listbox a verileri sıralı aktarmak

[ttrance]

arkadaşlar merhaba

Sheets("sayfa2").[a1].Select
For X = 1 To Sheets("SAYFA2").[A65536].End(3).Row
c = c + 1
ListBox1.AddItem
ListBox1.List(c - 1, 0) = Sheets("SAYFA2").Cells(X, 1)
Next

A kolonunda bulunan isimleri alfabetik sıra ile nasıl listbox'a atabilirim

 

[Levent Menteşoğlu]

Bunun en pratik yolu sayfa üzerinde sıralayıp sonra listboxa almaktır. Aşağıdaki gibi bir kodlama kullanabilirsiniz.

Sheets("sayfa2").[a1].Select
range("aa:aa")=range("a:a").value
range("aa:aa").sort key1:=range("aa1")
ListBox1.rowsource="aa1:aa" & [aa65536].end(3).row

 

[ttrance]

hocam sagolasın işe yaradı