sayfa isimlerini sırala( sheet)

[sakaryavedat]

sayfa isimleri tarih olarak verilmiştir bu sayfaları soldan sağa doğru tarih sırasına göre sıralamak istiyorum.
Konuyla ilgili yardımlarınızı bekliyorum.

 

[İhsan Tank]

sayfa isimleri tarih olarak verilmiştir bu sayfaları soldan sağa doğru tarih sırasına göre sıralamak istiyorum.
Konuyla ilgili yardımlarınızı bekliyorum.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sheet_sorting()
Dim ts As Integer
Dim kaplan As Integer, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Sayfaları Sıralıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 1 To Sheets.Count
For kaplan = 1 To Sheets.Count - 1
If UCase$(Sheets(kaplan).Name) > UCase$(Sheets(kaplan + 1).Name) Then
Sheets(kaplan).Move after:=Sheets(kaplan + 1)
End If
Next
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Sayfaları Sıraladım", , "Bitiş"
End Sub