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.