tarih isimli sayfalarımı tarihlerine göre sıralama

[idealimsin]

herkese merhaba
Tarih isimli sayfalarımı tarihlerine göre sıralama makrosu daha önce işime yarıyordu.hücrelerde sayıları tarihe çevirme sorunlarını yaşadıktan sonra denetim masasında diller seçeneğinden tarih ayarlarını dd.mm.yy ayarını dd/mm/yy olarak değiştirince sorunum çözüldü ancak bu sefer makro işe yaramaz oldu.aşağıdaki makromu nasıl düzeltebilirim

Sub sıralasayfa()
Application.ScreenUpdating = False
For X = 1 To Sheets.Count
For Y = X + 1 To Sheets.Count
If IsDate(Sheets(X).Name) Then
c = CDate(Sheets(X).Name)
Else
Exit For
End If
If IsDate(Sheets(Y).Name) Then
d = CDate(Sheets(Y).Name)
Else
GoTo gel
End If
If c < d Then
GoTo gel
Else
Sheets(Y).Move before:=Sheets(X)
gel:
End If
Next Y
Next X
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir", vbInformation
End Sub

 

[Ömer]

Merhaba,

Tahmini yazıyorum.

Kodlarda:

Sheets(X).Name

yerine;

Replace(Sheets(X).Name, ".", "/")

----------------------------------------------------------------------------

Sheets(Y).Name

yerine;

Replace(Sheets(Y).Name, ".", "/")

yazarak deneyin.

.

 

[idealimsin]

Merhaba,

Tahmini yazıyorum.

Kodlarda:

Sheets(X).Name

yerine;

Replace(Sheets(X).Name, ".", "/")

----------------------------------------------------------------------------

Sheets(Y).Name

yerine;

Replace(Sheets(Y).Name, ".", "/")

yazarak deneyin.

.

eline sağlık hocam sağolasın