listbox'ta sıralama

[halilerguder]

Sevgili ustalarım, bir listboxta sayfa1 den a1:a3000 arasındaki veriler var bu veriler rakam ve bazıları aynı.Benim istediğim bu rakamların küçükten büyüğe doğru sıralanması. Aynı rakamlar ard arda gelmeli. şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Bunun en iyi yolu verileri sayfa üzerinde sıralayıp sonra listboxa almanızdır.

 

[halilerguder]

Sayın leventim sıralamayı yaptım ama yeni bir kayıt eklediğimde bu numaradan bir tane daha varsa sılamanın en sonuna atıyor. her defasında excel'e dönüp yeniden sıralamam mı gerek?

 

[Levent Menteşoğlu]

her defasında excel'e dönüp yeniden sıralamam mı gerek?

Elbette hayır, listboxa veri aldığınız kodların önüne bir sıralama kodu eklersiniz.

 

[Haluk]

DAO ile bir örnek ektedir...

 

[Haluk]

Eğer sıralamada, mükerrer kayıtların hepsinin görüntülenmesini istiyorsanız, aşağıdaki satırı koddaki orjinali ile değiştirin.

    Set RS = MyDB.OpenRecordset("select Liste from [Sheet1$] order by Liste")

 

[alibal]

Sevgili ustalarım, bir listboxta sayfa1 den a1:a3000 arasındaki veriler var bu veriler rakam ve bazıları aynı.Benim istediğim bu rakamların küçükten büyüğe doğru sıralanması. Aynı rakamlar ard arda gelmeli. şimdiden teşekkürler.

Bunun birinci yolu leventm hocamızın dediği gibi yapmandır.
İkincisi de biraz programcılıktan anlıyorsanız eğer, dizi sıralam yötemlerini kullanmalsınız. Yani quick search vb yöntemleri kullanarak. Bunun için Listedeki bütün elemanları sıraile birbirleriyle karşılaştırarak yer değiştirmeniz olacaktır.
Örn;
List[1] -----> Listenin 1. elemanı
List[2] -----> Listenin 2. elemanı
list[1] < List[2] ise k=list[1];
list[1]=list[2];
list[2]=k;

(k ----> Tampon Değişken)

Bu kalıba göre iki tane iç içe döngü kurarak bütün elemanrı birbiri ile karşılaştırabilirsin.

for i=1 to 999
for j=i+1 to 1000
list[1] < List[2] ise
k=list[1];
list[1]=list[2];
list[2]=k;
end
end

 

[Haluk]

.....
İkincisi de biraz programcılıktan anlıyorsanız eğer, dizi sıralam yötemlerini kullanmalsınız.

Sıralamaya hiç almadığınıza göre, DAO kullanımını pek sevmediniz galiba.

 

[alibal]

.....
İkincisi de biraz programcılıktan anlıyorsanız eğer, dizi sıralam yötemlerini kullanmalsınız.

Sıralamaya hiç almadığınıza göre, DAO kullanımını pek sevmediniz galiba.

Pardon unutmuşum Aslında En iyisi DAO

 

[hbpogretmen]

Bir sutunda adı soyadı yazılı personelleri soyada göre nasıl sıralayabiliriz....soyadın baş harfine göre...

 

[abdi]

Sayın hbpogretmen,

Ad Soyad verilerinizin a2 den itibaren başladığı varsayılmıştır.
aşağıdaki formulu boş olan bir sutuna kopyalayın
sonra verileriniz kadar formulu hücrenin kenarından çekerek uygulayın.
sonrada bu satıra göre sıralama yaptırın ilk bo sütununuz e2 ise e2 ye formulu girin
sonra yukarda bahsettiğim yöntemle formülü diğer e sutununa (a sütunundaki verileriniz kadar çoğaltın.)

=+SAĞDAN(A2;UZUNLUK(A2)-BUL(" ";A2))&" "&SOLDAN(A2;BUL(" ";A2))

Çalışmalarınızda Başarılar Dilerim.

 

[levuu]

haluk bey
DAO ile bir örnek ektedir...
sanıyorum taşınmadan dolayı dosya silinmiş tekrar yüklemek mümkünmü?
teşekkürler