Tarihe Göre Sıralama Yaptırma

[AyYıldızım]

Arkadaşlar forumda biraz araştırdım

'
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
If Cells(Target.Row, "E") > "" Then
Range("A9:CC65536").Select
    Selection.Sort Key1:=Range("E9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A65536").End(3).Select
End If

kodunu kullanarak stun üzerinde tarihe göre sıralama yapabiliyorum yalnız benim şöyle bir isteğim var, yardımcı olursanız sevinirim.

userformdan kayıtları girdiğim zaman id numarasına göre 1,2,3 diye otomatik sıralanıyor, ben bu sıralama ile birlikte tarih sıralamasıda yapmak istiyorum, mesala 1,2,3 sıra numaraları yeni girilen tarihten eski tarih doğru yeni sıra numarası alsın.
Sıra No tarih
1 03.04.2013
2 03.04.2012
3 03.04.2011

şeklinde yeni yada eski tarih girsem bile bu şekilde sıralanmasını istiyorum. verileri userformdan textboxlardan giriyorum tabi

 

[Ömer]

Merhaba,

Örnek bir satır, kendinize uyarlarsınız.

A sütunu küçükten büyüğe, C sütunu büyükten küçüğe aynı anda sıralar.

Range("A2:C10").Sort Key1:=Range("A1"), Order1:=xlAscending, _
                     Key2:=Range("C1"), Order2:=xlDescending

.

 

[AyYıldızım]

Teşekkürler yanıt için yalnız bu kodu nasıl kullanacağım sayfada kullanamadım, yardımcı olurmusunuz.