Excel Sayfaları ismine göre sıralama

[mozdem]

Bir çok excel sayfası var. Sayfa adları sayısal değerlerden oluşmakta. Bu sayfaları soldan sağa artan şekilde nasıl makro ile sıralayabilirim.

Teşekkür ederim.

 

[izcik]

Benim de zaman zaman kafama takılan bir durumdur bu.. Var mıdır acaba çözümü?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ssirala()
    For i = 1 To Sheets.Count
    For s = 1 To Sheets.Count - 1
        If Sheets(s).Name > Sheets(i).Name Then
            Sheets(i).Move before:=Sheets(s)
         End If
    Next: Next
End Sub

 

[mozdem]

sayfa isimlerini sıralıyor ancak, sayısal değerin büyüklüğüne göre değil. Öreğin şöyle bir sıralam oluüyor,

119,251,254,30,40,50 vs
bunu nasıl düzeltebilirim
cevap için teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ssirala()
    For i = 1 To Sheets.Count
    For s = 1 To Sheets.Count - 1
        If Val(Sheets(s).Name) > Val(Sheets(i).Name) Then
            Sheets(i).Move before:=Sheets(s)
         End If
    Next: Next
End Sub

 

[izcik]

Değerli N.Ziya Hiçdurmaz teşekkürler.

 

[mozdem]

yanıt

N.Ziya HİÇDURMAZ teşekkürler.
Ancak tam istediğim olmadı. bunun için örnek bir dosya gönderiyorum
ilgilenirseniz memnun olurum

 

[Orion1]

Buyurun.

Sub sayfa_sirala()
On Error Resume Next
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If CDbl(Sheets(b).Name) > CDbl(Sheets(a).Name) Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next
End Sub

 

[mozdem]

Teşekkür

Evren hocam teşekkür ederim.
Ellerine sağlık.

 

[Orion1]

Evren hocam teşekkür ederim.
Ellerine sağlık.

Rica ederim.
İyi çalışmalar.

 

[izcik]

Ben de teşekkür ederim değerli Evren Gizlen