Sayfaları(sekme) tarihe göre sıralama

[3dmaster]

Merhaba,

Excel de sayfaları ( sekmeleri ) tarihe göre nasıl sıralıyabilirim?

Örn:

11.03.2006 21.06.2008 23.12.2007 31.07.2006 tarrzında (GG.MM.YYY) formatında küçük tarihten büyüğe sayfa sıralaması yapmak istiyorum. Birçok kod denedim ama başarılı olamadım. Denediğim kodlardan birisini örnek olarak veriyorum. Teşekkür ederim.

Sub sayfasirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
deg1 = Evaluate("=UPPER(" & """" & Sheets(b).Name & """" & ")")
deg2 = Evaluate("=UPPER(" & """" & Sheets(a).Name & """" & ")")
If deg1 > deg2 Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next
End Sub

 

[Ayhan Ercan]

Merhaba Sn 3dmaster

Aşağıdaki kodu denermisiniz...?

Sub sayfasirala2()
    For a = 1 To Sheets.Count
        For b = a + 1 To Sheets.Count
            deg1 = CDate(Sheets(b).Name)
            deg2 = CDate(Sheets(a).Name)
            If deg1 > deg2 Then GoTo 10
            Sheets(b).Move before:=Sheets(a)
10      Next
    Next
End Sub

 

[3dmaster]

Merhaba Sn 3dmaster

Aşağıdaki kodu denermisiniz...?

Sub sayfasirala2()
    For a = 1 To Sheets.Count
        For b = a + 1 To Sheets.Count
            deg1 = CDate(Sheets(b).Name)
            deg2 = CDate(Sheets(a).Name)
            If deg1 > deg2 Then GoTo 10
            Sheets(b).Move before:=Sheets(a)
10      Next
    Next
End Sub

Sayın Ayhan Ercan ,

Yazmış olduğunuz kod çalışıyor.Yardımınız için teşekkür ederim.

 

[Ayhan Ercan]

Sayın Ayhan Ercan ,

Yazmış olduğunuz kod çalışıyor.Yardımınız için teşekkür ederim.

Rica ederim.
İyi Çalışmalar.. k::