Sayfaları Otomatik Sıralama

Bu şablon, Excel çalışma kitabındaki sayfaları sayfa adlarına göre alfabetik olarak sıralayan bir makro içerir. Çok sayıda sayfası olan kitaplarda sekmeleri tek tek sürüklemeden düzenli bir sıraya getirmek için kullanılır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1, Sayfa2, Sayfa3: Sıralamanın sonucunu denemek için kullanılabilecek sayfalardır.
• Sheet1: A1:A5 aralığında veri bulunan örnek sayfadır.
• Module1: Sıralama işlemini yapan iki prosedürü barındıran VBA modülüdür.

Dosyada çalışma sayfası formülü bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

• Sayfaları_Sırala: Önce açık bir çalışma kitabı olup olmadığını denetler. Kitabın yapısı korumalıysa uyarı verir ve işlemi durdurur. Ardından "Sayfaları sıralamak istiyor musunuz?" sorusunu sorar; Evet seçilirse tüm sayfa adlarını bir listeye alır, sıralatır ve sayfaları bu sıraya göre kitabın başına doğru taşır. İşlem bitince sıralamadan önce etkin olan sayfa yeniden etkinleştirilir. Makroya kısayol olarak Ctrl+Shift+S atanmıştır.
• BubbleSort: Sayfa adlarını büyük/küçük harf ayrımı yapmadan (UCase ile karşılaştırarak) artan sırada dizen yardımcı prosedürdür.

Kodda dosya silme ya da dışarıya bağlantı kuran bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sıralamak istediğiniz sayfaların bulunduğu çalışma kitabını etkin hale getirin. Makro etkin kitap üzerinde çalışır; başka bir kitapta kullanmak için Module1 modülünü o kitaba aktarıp kitabı .xlsm olarak kaydedin.
3. Alt+F8 ile Sayfaları_Sırala makrosunu seçip çalıştırın veya Ctrl+Shift+S kısayolunu kullanın.
4. Çıkan soru penceresinde Evet seçeneğini işaretleyin; sayfalar adlarına göre sıralanır.

Çalışma kitabının yapısı korumalıysa sıralama yapılmaz; önce Gözden Geçir > Çalışma Kitabını Koru ayarı kaldırılmalıdır.