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

Katılım
24 Temmuz 2019
Mesajlar
411
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
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
 

Ekli dosyalar

asi_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,822
Excel Vers. ve Dili
Excel 2007 Türkçe
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?
 
Katılım
24 Temmuz 2019
Mesajlar
411
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
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.
 
Üst