ListBox'ta Sıralama

[ormann]

Merhabalar ;
Ekteki programın içerisinde bulunan Listbox2'den çağırmış olduğum kayıtlar Listbox1'e sıralı bir şekilde nasıl aldırırız?.Yardımlarınızı bekliyorum.Saygılar sunuyorum

 

[hımmmmmmmm]

sırala

bilgileri önce boş bir sayfaya A sütunu hücrelerine yazdır..
macro kotla sıralama işlemi yaptır...aynı sayfadan listbox1 e al...

sheets("sayfaadı").range("A:A").clearcontents
listbox1.rowsource=""
.........................................................
burada bilgileri boş sayfaya aktar
.........................................................
S=worksheetfunction.countA(sheets("Sayfaadı").RANGE(A:A))

Sheets("Sayfaadı").Range("A1:A"+TRIM(S)).Sort Key1:=Sheets ("Sayfaadı").Range ("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Listbox1.rowsource="sayfaadı!A1:A"+TRIM(S)

 

[erdem_emre]

bilgileri önce boş bir sayfaya A sütunu hücrelerine yazdır..
macro kotla sıralama işlemi yaptır...aynı sayfadan listbox1 e al...

sheets("sayfaadı").range("A:A").clearcontents
listbox1.rowsource=""
.........................................................
burada bilgileri boş sayfaya aktar
.........................................................
S=worksheetfunction.countA(sheets("Sayfaadı").RANGE(A:A))

Sheets("Sayfaadı").Range("A1:A"+TRIM(S)).Sort Key1:=Sheets ("Sayfaadı").Range ("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Listbox1.rowsource="sayfaadı!A1:A"+TRIM(S)

Cevabınız için teşekkür ederim.

 

[ormann]

Arkadaşlar ben kodu uygulayamadım.Acaba Listbox'a veri kaydettikce otamatik olarak kendisi sıralayabilir mi?