Sheet Sıralaması

[abone0069]

Sn. Arkadaşlar
Forumu araştırdım fakat birebir bulamadım ve bulduklarımıda uygulayamadım. Benim sorunum bir excel sayfasında hem rakamla hemde harfle başlayan sayfalar var (150'ye yakın). Fakat bunlar karışık bunları artan sıralama olarak nasıl yaptırabilirim. Bunu nasıl ve nereye kod yazarak veya yazmayarak yaptırabilirim. Şimdiden teşekür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bir module koyup çalıştırınız.

Sub SAYFA_SIRALA()
For Each S1 In Worksheets
For Each S2 In Worksheets
If S1.Name > S2.Name Then S1.Move AFTER:=S2
Next
Next
End Sub

 

[abone0069]

V.Basic For Applications
Uzman'ım çok teşekür ederim. Saygılar

 

[cry_of_dark]

TeŞekkÜrler İŞİme Yarar