Büyükten Küçüğe Sıralama
Büyükten Küçüğe Sıralama
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.
-
- 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
Ö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
Re: Büyükten Küçüğe Sıralama
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.
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.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 8 Cevaplar
- 2876 Görüntüleme
-
Son mesaj gönderen ayhanbedir