Sıralamayı Eski Haline getirme

[Tarikkk_]

Merhabalar örnek Dosyamda gelişi güzel bazı kayıtlar mevcut. ve tarih sıralamasını eskiden yeni göre yapan bir butonum var bu sıralamayı uyguladıktan sonra eski haline getirmek istiyorum. bunu nasıl yapabilirim öyle bir şansımız var mı örnek dosya ektedir yardımlarınızı bekliyorum şimdiden çok teşekkür ederim

 

[usubaykan]

Sub Makro2()
    Sheets("Sayfa1").Sort.SortFields.Clear
    'sıralamak için sıra numarası
    Range("A3:A" & Cells(Rows.Count, "B").End(3).Row).FormulaR1C1 = "=R[-1]C+1"
    Range("A3:A" & Cells(Rows.Count, "B").End(3).Row).Value = _
    Range("A3:A" & Cells(Rows.Count, "B").End(3).Row).Value
    
    Sheets("Sayfa1").Sort.SortFields.Add Key:=Range("C3"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    With Sheets("Sayfa1").Sort
        .SetRange Range("A2:F19")
        .Apply
    End With
    
   'Eski Sıra
    Sheets("Sayfa1").Sort.SortFields.Clear
    
    Sheets("Sayfa1").Sort.SortFields.Add2 Key:=Range("A3"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    With Sheets("Sayfa1").Sort
        .SetRange Range("A2:F19")
        .Apply
    End With
    MsgBox "Ok"
End Sub

birde bu şekilde deneyiniz.

 

[Tarikkk_]

tam olarak ne işe yaradığını anlamadım

 

[YUSUF44]

Bu işlemde mantık şöyledir. Excelin eski sıralamayı hatırlayabilmesi için ya o sıralama da belli bir kurala göre olmalıdır ya da o sıralamayı sağlayan bir işlem yapılmalıdır. Gelişigüzel olduğuna göre kuralsız demektir. Bu durumda önce boş bir sütuna eski haline göre sıra numarası verilir. Eski sıralamaya dönülmek istendiğinde de bu sütuna göre sıralama yapılır.

 

[Tarikkk_]

Bu işlemde mantık şöyledir. Excelin eski sıralamayı hatırlayabilmesi için ya o sıralama da belli bir kurala göre olmalıdır ya da o sıralamayı sağlayan bir işlem yapılmalıdır. Gelişigüzel olduğuna göre kuralsız demektir. Bu durumda önce boş bir sütuna eski haline göre sıra numarası verilir. Eski sıralamaya dönülmek istendiğinde de bu sütuna göre sıralama yapılır.

şimdi anladım açıklama için teşekkür ederim