Sayfa Sıralama

[ismailuguz]

Merhaba arkadaşlar ;
aşağıdaki kodlarla rakamlardan oluşan sayfaları sıralayabiliyorum.

For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If Val(Sheets(b).Name) > Val(Sheets(a).Name) Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next

Fakat sayfa isimleri t1 , k1, s1, t2 gibi harf ve rakamlardan oluşmakta. Sayfa isimlerini sıralamak için nasıl bir kod kullanmam gerekir.
Teşekkür ederim.

 

[Saban Sertkaya]

Düzeltme : Hatalı kod yazımı...

 

[Ömer BARAN]

Merhaba.
Forumda arama yaptınız mı acaba?
Olması lazım sanki.

 

[Saban Sertkaya]

Ekli örneği inceleyiniz...

Link : http://dosya.web.tr/OQJJqN

 

[ismailuguz]

Merhaba.
Forumda arama yaptınız mı acaba?
Olması lazım sanki.

Araştırdın arkadaşım bulamadım

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i%, s%, a%, t%
    For i = 1 To Sheets.Count
        s = s + 1
        Sayfa1.Cells(i, 1) = Sheets(i).Name
    Next i
    Sayfa1.Range("A1:A" & s).Sort Sayfa1.Range("A1"), 1
    For t = 1 To Sheets.Count
        For a = 1 To s
            Sheets(a).Move before:=Sheets(Sayfa1.Cells(a, 1).Value)
        Next a
    Next t
    t = Empty: a = Empty: s = Empty: i = Empty
End Sub[/SIZE][/FONT]

 

[Saban Sertkaya]

4 nolu mesajdaki örneği incelediniz mi?

 

[ismailuguz]

4 nolu mesajdaki örneği incelediniz mi?

Şu anda işteyim en kısa zamanda inceleyecegim

 

[ismailuguz]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i%, s%, a%, t%
    For i = 1 To Sheets.Count
        s = s + 1
        Sayfa1.Cells(i, 1) = Sheets(i).Name
    Next i
    Sayfa1.Range("A1:A" & s).Sort Sayfa1.Range("A1"), 1
    For t = 1 To Sheets.Count
        For a = 1 To s
            Sheets(a).Move before:=Sheets(Sayfa1.Cells(a, 1).Value)
        Next a
    Next t
    t = Empty: a = Empty: s = Empty: i = Empty
End Sub[/SIZE][/FONT]

Murat bey kodları denedim fakat sıralamada hata var

 

[ismailuguz]

Ekli örneği inceleyiniz...

Link : http://dosya.web.tr/OQJJqN

Ekteki dosya işe yarıyor yardımlarınız için hepinize teşekkür ederim.

 

[Saban Sertkaya]

Şahsım adına, rica ederim.

 

[ismailuguz]

Ekli örneği inceleyiniz...

Link : http://dosya.web.tr/OQJJqN

evet arkadaşlar linkteki dosya çalıştı fakat sayfalar çoğalınca iş değişti.
k1, k10, k11, k2, k20, k21 şeklinde sıralıyor.
k1, k2, k3 diye son sayfaya kadar sıralamasını istiyorum nasıl çözebiliriz.

 

[Saban Sertkaya]

Sayfa isimleri verirken, mümkünse düzenleyip veriniz.

k1, k10, k11, k2, k20, k21 şeklinde sıralıyor.
k1, k2, k3 diye son sayfaya kadar sıralamasını istiyorum nasıl çözebiliriz.

k1 yerine k01
k2 yerine k02 gibi.
böylece sırala dediğinizde, alacağınız sonuç;
k01, k02, k10, k11, k20, k21 şeklini alacaktır.