Büyükten Küçüğe Sıralama

[atilla13]

Programımın bir sayfasında gerçekleştirdiğim analiz sonucunda, AE3:AI..... aralığında ekteki görüntüyü alıyorum. Program, en sondaki (AI) sütunundaki değerlere göre en küçükten en büyüğe göre sıralamaktadır. Ben bunu büyükten küçüğe doğru sıralanmasını yapamadım. Her seferinde, en sondaki değerden yukarı doğru bloklayıp, "Sırala-Filtrele Özelliği" ile büyükten küçüğe düzeltiyorum. Veri sayısı her seferinde farklı olduğu için "Makro Kaydet" özelliğini de kullanamıyorum. Acaba Excel ayarlarında bunu değiştirmek, yada bir makro ile bunu yapmak mümkün müdür? Çok teşekkürler. Sağlıklı ve mutlu günler dilerim.

[erseldemirel]

Örnek bir kod deneyiniz geliştirirsiniz

Kod: Tümünü seç

Sub Sırala()
Set ws = ThisWorkbook.Sheets("TEST")
lastRow = ws.Cells(ws.Rows.Count, "AF").End(xlUp).Row
Set sortRange = ws.Range("AF2:AH" & lastRow)
Set sortColumn = ws.Range("AH2:AH" & lastRow)
sortRange.Sort Key1:=sortColumn, Order1:=xlDescending, Header:=xlNo
End Sub

[atilla13]

Sizin kodları şu şekilde düzenledim:

Sub buyuktensırala()
Set ws = ThisWorkbook.Sheets("TEST")
lastRow = ws.Cells(ws.Rows.Count, "AE").End(xlUp).Row
Set sortRange = ws.Range("AE3:AI" & lastRow)
Set sortColumn = ws.Range("AI3:AI" & lastRow)
sortRange.Sort Key1:=sortColumn, Order1:=xlDescending, Header:=xlNo, Orientation:=xlTopToBottom
End Sub

bu kod istediğim gibi AI sütunundaki değerlere göre sıralama yapıyor, ancak sonuçları yukarıda değil, sütunun en altında veriyor. Cevap için teşekkürler.