Sayfa adını belirlenen bir hücreye yazdırmak.

[cayaso]

Excelde sayfa adını bir hücreye yazdırmaya çalıştım. Hazırladığım makro hata veriyor. Bu konuda üye arkadaşlardan yardım bekliyorum. İşlem sayfaların çok olması nedeniyle ya topluce veya sayfa aktif olduğunda gerçekleşebilir.Selamlar.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi formülle yapabilirsiniz. Forumda örnekler var.

Siz makro bölümüne sorduğunuz için aşağıdaki kodu kullanabilirsiniz.

Sub SAYFA_ADI()
    Dim Sayfa As Worksheet
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Range("A1") = Sayfa.Name
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cayaso]

Sayın Korhan AYHAN çok teşekkür ederim.