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

Cevapla
atilla13
Mesajlar: 10
Kayıt: Sal Kas 28, 2023 5:01 pm
Adınız: Murat
Soyadınız: Şen

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

Mesaj gönderen 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.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
erseldemirel
Mesajlar: 133
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

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

Mesaj gönderen 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
Mesajlar: 10
Kayıt: Sal Kas 28, 2023 5:01 pm
Adınız: Murat
Soyadınız: Şen

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

Mesaj gönderen 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.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj