Excel Sayfalarını Küçük Tarihten Büyük Tarihe Doğru Sıralama

[Feylosof]

Merhaba, herkesin bayramını en samimi duygularla kutluyorum.

Excel dosyamda "ANA SAYFA" "VERİ" ve Tarihlerden oluşan sayfa adları mevcuttur. "ANA SAYFA" ve "VERİ" sayfalarını es geçerek tarihten oluşan sayfaları küçük tarihten büyük tarihe doğru sıralama yapmak istiyorum. Alfabetik sıralama yapan kodlar forumda mevcut; ancak tarihe göre bulamadım.
Bunun için kod yardımında bulunursanız minnettar olurum.
Teşekkürler

 

[asi_kral]

Merhaba

Sub Sırala()
Dim STR As Long, S1 As Worksheet, SYF As String, SR As Long
Dim GG, AA, YY
Sheets.Add , Sheets(Sheets.Count)
Set S1 = Sheets(Sheets.Count)
For STR = 3 To Sheets.Count - 1
GG = Mid(Sheets(STR).Name, 1, 2)
AA = Mid(Sheets(STR).Name, 4, 2)
YY = Mid(Sheets(STR).Name, 7, 4)
S1.Range("A" & STR) = DateSerial(YY, AA, GG)
Next
S1.Columns("A:A").EntireColumn.AutoFit
S1.Range("A3:A" & STR).Sort S1.Range("A3")
For STR = 3 To S1.Range("A" & Rows.Count).End(xlUp).Row
Sheets(S1.Range("A" & STR).Text).Move before:=Sheets(STR)
Next
Application.DisplayAlerts = False
S1.Delete
Application.DisplayAlerts = True
End Sub


Boş bir modüle ekleyip dener misiniz?

 

[Feylosof]

Merhaba

Sub Sırala()
Dim STR As Long, S1 As Worksheet, SYF As String, SR As Long
Dim GG, AA, YY
Sheets.Add , Sheets(Sheets.Count)
Set S1 = Sheets(Sheets.Count)
For STR = 3 To Sheets.Count - 1
GG = Mid(Sheets(STR).Name, 1, 2)
AA = Mid(Sheets(STR).Name, 4, 2)
YY = Mid(Sheets(STR).Name, 7, 4)
S1.Range("A" & STR) = DateSerial(YY, AA, GG)
Next
S1.Columns("A:A").EntireColumn.AutoFit
S1.Range("A3:A" & STR).Sort S1.Range("A3")
For STR = 3 To S1.Range("A" & Rows.Count).End(xlUp).Row
Sheets(S1.Range("A" & STR).Text).Move before:=Sheets(STR)
Next
Application.DisplayAlerts = False
S1.Delete
Application.DisplayAlerts = True
End Sub


Boş bir modüle ekleyip dener misiniz?

Sayın @asi_kral teşekkürler.