tarih sayfalarını sıralamak

[idealimsin]

numaralanmış veya alfabetik sayfaların sıralamsı mevcut tarih olarak verilmiş sayfa adlarında işe yaramıyor. 12.10.2012 gibi adlandırılmış sayfalar nasıl sıralandırılır

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub SIRALA()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    On Error Resume Next
    Sheets("#").Delete
    On Error GoTo 0
    
    Set S1 = Sheets.Add
    S1.Name = "#"
    S1.Cells(1, 1) = "Sayfalar"
    Satir = 2
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> S1.Name Then
            S1.Cells(Satir, 1) = Sayfa.Name
            Satir = Satir + 1
        End If
    Next
 
    S1.Range("A2:A" & Rows.Count).Sort S1.Range("A2")
    Satir = 2
    
    For Each Veri In S1.Range("A2:A" & S1.Cells(Rows.Count, 1).End(3).Row)
        Sheets(Veri.Text).Move Before:=Sheets(Satir)
        Satir = Satir + 1
    Next
 
    On Error Resume Next
    Sheets("#").Delete
    On Error GoTo 0
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub