Msgbox Döngü ile Sayfa İsimlerini Gösterme

Bu dosya, çalışma kitabındaki tüm sayfaların adlarını For Each döngüsü ile toplayıp tek bir MsgBox penceresinde alt alta gösteren kısa bir makro örneğidir. Çok sayıda sayfası olan dosyalarda sayfa adlarını hızlıca görmek isteyenler için hazırlanmıştır.

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

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: Makroyu çalıştırmak için kullanılan ana sayfadır.
• Sayfa1 ve Sayfa2: Makronun listeleyeceği sayfaları göstermek amacıyla kitapta bulunan sayfalardır.
• Module1: a adlı makroyu barındıran VBA modülüdür.

Makrolar​

• a: ActiveWorkbook.Sheets koleksiyonundaki her sayfa için döngü kurar. Her turda sayfa adı, satır sonu karakteri (Chr(10)) ile birlikte bir metin değişkenine eklenir. Döngü bittiğinde birikmiş metin MsgBox ile tek pencerede gösterilir.

Makro yalnızca sayfa adlarını okur; dosya silme, dışarıya bağlantı gibi bir işlem yapmaz. Çalışma kitabında değişiklik yapmaz.

Listeye gizli sayfalar da dahildir, çünkü döngü Sheets koleksiyonunu kullanır. Grafik sayfaları da bu koleksiyonda yer aldığı için adları listede görünür.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt + F8 tuşlarıyla makro listesini açın.
3. a makrosunu seçip Çalıştır düğmesine tıklayın.
4. Açılan MsgBox penceresinde sayfa adları alt alta listelenir.
5. Makroyu bir düğmeye bağlamak için Geliştirici sekmesinden bir düğme ekleyin ve makro olarak a değerini atayın.
6. Kendi dosyanızda kullanmak için Alt + F11 ile VBA düzenleyicisini açıp Module1 içindeki kodu kopyalayarak kendi dosyanıza ekleyin.