azalarak sıralama

[m.gur]

Forumdan alıntı kod;

rs.Open ("Select first(F1),count(F1)from [ANASAYFA$E2:E] group by F1;"), conn, 1, 3

Bu kodla anasayfadaki E sütunundaki bilgiler sayılıp toplamları yazılıyor. Benim yapmak istediğim azalan sırada listelemek.
Örnek:
armut 55
elma 44
ayva 33
--- ---
şeklinde olması
araştırdığım kadarıyla "descending" yazılacak bir yerlere fakat nereye yazdıysam bir türlü olmadı.

 

[snx111]

Range("e1:e65000").Sort Key1:=Range("e2"), Order1:=xlDescending, Header:=xlGuess

armut 1 görmez
armu11 görür ; tek haneli sayıları görmez...

 

[Orion1]

Deneyiniz.
rs.Open ("Select first(F1),count(F1)from [ANASAYFA$E2:E] group by F1 order by F1 desc;"), conn, 1, 3

 

[m.gur]

Uyarlayamadım. Örnek dosyamı ekliyorum.