Verileri tarih ve no'ya göre sıralama?

[Aretea]

Önceki konularda araştırmamda şu kodları buldum;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
Son_Satır = [e65536].End(3).Row
Range("e2:a" & Son_Satır).Sort [e2]
End Sub

Ama bu kod sadece bana E sütununda bulunan tarihleri sıralıyor. Bana hem E sütunundaki tarihleri sıralayacak hemde A sütunundaki Sıra Nolarını sıralayacak bir kod lazım. Yardımcı olursanız sevinirim.

 

[conari]

Range("e2:a" & Son_Satır).Sort [e2]
satırını
Range("e2:a" & Son_Satır).Sort [e2], Order1:=xlAscending, Key2:=[a2], Order2:=xlAscending

olarak değiştiriniz.