DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Cevabınız için teşekkür ederim.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)