MAKRO İLE ÇİFTE SIRALAMA

[kemalist]

Arkadaşlar makro ile son satıra kadar çifte siralama yapmak istiyorum.
İlginize şimdiden teşekkür ederim.
Daha fazla açıklama ekteki dosyadadır.

 

[balanar]

hmm ilginç bende merak ettim mutlaka çözüm sunan bir üstadımız çıkacaktır. Faydalı bir kod olacak ama çoğu kişinin ihtiyacı olur böyle bir iki seçenekli sıralamaya. Hatta mümkün müdür bilemiyorum ama makroya çözüm bulacak üstadımız biraz da açıklama yapsa kodlarla ilgili çok iyi olur..

 

[usubaykan]

İstediğiniz böyle bir sıralama mı ?
Sizin kullandığınız koda sadece son satır ekledim.

Sub ÇİFTE_SIRALAMA()
Dim SON
SON = Cells(Rows.Count, "A").End(3).Row
  
    Range("A1:E" & SON).Select
    ActiveWorkbook.Worksheets("ANA SAYFA ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ANA SAYFA ").Sort.SortFields.Add Key:=Range( _
        "E2:E" & SON), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ANA SAYFA ").Sort.SortFields.Add Key:=Range( _
        "D2:D" & SON), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ANA SAYFA ").Sort
        .SetRange Range("A1:E" & SON)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  
    Range("A1").Select
End Sub

 

[kemalist]

teşekkür ederim...