Sıralamayı eski haline çevirmek

[BBBBuRaKKKK]

Merhaba arkadaşlar, ben bu kod ile sıralama yapıyorum. Bu sıralamayı eski haline çevirmek için bir makro yazılabilir mi ?

 Sub sırala()
    Columns("A:N").Select
    Selection.Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[ÖmerFaruk]

Sıralama yapmadan önce verilerini ya başka sayfaya kopyalayın, ya da bir Array değişkene tanımlayın.
Array değişkeninizi Public yapabilirsiniz.
Sıralamayı orjinal haline çevirirmek için aralığınıza Array değişkenden verileri geri çekebilirsiniz.

 

[ÖmerFaruk]

Ya da daha kolay bir yöntem önereyim. Listenize bir sütun daha ilave edin. Gizli de olabilir.
Orhinal haliyle bu sütuna sıra no ları yazın.
Sıralamayı bu sütuna göre artan şekilde yaptığınızda orjinal verilerinizi görmüş olursunuz.

 

[BBBBuRaKKKK]

teşekkür edeirm