Soru Özel sıralama ve Makro Kaydet hakkında

[lovecaroline]

Merhaba değerli arkadaşlarım,
3 düzey özel sıralama yapıyorum ve bunu makro olarak kaydediyorum. Ama sadece kayıt ettiğim sayfada çalışıyor. Ben aktif sayfa hangisiyse orada sıralama yapsın istiyorum. Yardımcı olabilir misiniz. Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Kodlarınızı ekleyin inceleyelim.

 

[lovecaroline]

merhaba, sayfa sayıları ve satır sayıları değişebilir. 3 düzey sıralama istiyorum. düzey sütunlarını belirttim. şimdiden çok teşekkürler.

 

[Korhan Ayhan]

Kod içindeki Worksheets("MAVİ") ifadelerini ActiveSheet olarak değiştiriniz.

Ya da en güzeli aşağıdaki kodu deneyiniz. Makro kaydet ile oluşan kodları biraz düzenledim.

Option Explicit

Sub Sirala()
    Dim Son As Long
    
    With ActiveSheet
        Son = .Cells(.Rows.Count, "C").End(3).Row
        .Sort.SortFields.Clear
        .Sort.SortFields.Add .Range("AI9:AI" & Son), Order:=xlDescending
        .Sort.SortFields.Add .Range("AD9:AD" & Son), Order:=xlDescending
        .Sort.SortFields.Add .Range("AF9:AF" & Son), Order:=xlDescending
        .Sort.SetRange .Range("C9:AT" & Son)
        .Sort.Header = xlGuess
        .Sort.Apply
    End With
    
    MsgBox "Sıralama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[lovecaroline]

Harika oldu. Teşekkürlerimi bir borç bilirim. Sizlerle aynı platformda olduğum için çok mutluyum.

 

[lovecaroline]

Kod içindeki Worksheets("MAVİ") ifadelerini ActiveSheet olarak değiştiriniz.

Ya da en güzeli aşağıdaki kodu deneyiniz. Makro kaydet ile oluşan kodları biraz düzenledim.

Option Explicit

Sub Sirala()
    Dim Son As Long
   
    With ActiveSheet
        Son = .Cells(.Rows.Count, "C").End(3).Row
        .Sort.SortFields.Clear
        .Sort.SortFields.Add .Range("AI9:AI" & Son), Order:=xlDescending
        .Sort.SortFields.Add .Range("AD9:AD" & Son), Order:=xlDescending
        .Sort.SortFields.Add .Range("AF9:AF" & Son), Order:=xlDescending
        .Sort.SetRange .Range("C9:AT" & Son)
        .Sort.Header = xlGuess
        .Sort.Apply
    End With
   
    MsgBox "Sıralama işlemi tamamlanmıştır.", vbInformation
End Sub

İlginç bir şekilde sıralama yaptıktan sonra bazı satırların boyutunu 0(sıfır) yapıyor. Nedenini anlayamadım. Bir fikriniz var mı?

 

[Korhan Ayhan]

Başka bir makro buna sebep oluyor olabilir. Varsa kontrol ediniz.