Sayısal ve Alfabetik Sıralama

[erseldemirel]

Arkadaşlar liste var. 1.sütunda adetler 2.sütunda tipler var. Adetler ve tipler sayıca birleşecek. İstediğim hali de istenilen sekmesine ekledim. Talep ettiğim; büyükten küçüğe sayı adedi olarak sıralanması. Ancak Adetleri aynı olan tiplerde kendi aralarında alfabetik sıralanacak. Bu sıralamada ilk karakter sayı gibi Ç gibi türkçe karakterlere de dikkat edilecek. Çünkü bazı kodlarda Türkçe karakterleri sıralama görmüyor. A..B...D..Ç Olmayacak. Örnek bir dosya var. Tabi bu liste çok daha uzun olabilir. Hızlı ve sağlıklı çözümler bulmak istiyorum. İlgilenenlere teşekkür ederim.

[tasad]

Kod: Tümünü seç

Sub Topla()
Dim con As Object, rs As Object
Sayfa1.Range("g2:z10000").ClearContents

Set con = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

Set rs = con.Execute("select sum (f2),f3 FROM [VERİLEN$a2:c] group by f3 order by sum(f2) desc,f3 asc ")
Sayfa1.Range("g2").CopyFromRecordset rs

rs.Close
con.Close
Set rs = Nothing: Set con = Nothing
End Sub

[erseldemirel]

Teşekkurler. Adet ve Tip yer değişmiş haliyelede yapabilirmiyiz? B sütununda sayılar olacak
VERİLEN SEKMEYİ böyle düşünelim.

MİLLET BAHÇESİ 1
KAMU BİNASI 1
TADİLAT 1
DÜKKAN 210
KONUT 212
KONUT 573
STADYUM 1
KONUT 565
KONUT 244
KONUT 142
KONUT 20
KONUT 488
KONUT 635
JÖAK HİZMET BİNASI 1

[tasad]

Kod: Tümünü seç

Sub Topla()
Dim con As Object, rs As Object
Sayfa1.Range("g2:z10000").ClearContents

Set con = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

Set rs = con.Execute("select f3 ,sum (f2) FROM [VERİLEN$a2:c] group by f3 order by sum(f2) desc,f3 asc ")
Sayfa1.Range("g2").CopyFromRecordset rs

rs.Close
con.Close
Set rs = Nothing: Set con = Nothing
End Sub

[erseldemirel]

Teşekkürler