Sayfa isimlerini tek tek herbir sayfanın b2 hücresine kopyalama

[qwertyemre]

Saygılar
Benim sorunum şu! Yüzlerce sayfadan oluşan bir excel kitabim var her bir sayfanın ismini b2 hücresine kopyalamam gerekiyor. Bunun için tek tek kopyalayıp yapıştırmaktansa bir makro kodu veya formül varmı acaba?
Şimdiden teşekkürler.

 

[Leoncio]

Merhaba;
Bir çalışma kitabında en fazla 256 sayfa bulunur. Aşağıdaki fonksiyon ile sayfa isimlerini yazdırabilirsiniz.

=Sayfa_ad()

Function Sayfa_ad()
Sayfa_ad = ActiveSheet.Name
End Function

 

[qwertyemre]

Merhaba
Sayın leventer cevabınız için teşekkürler ama bu kodları herbir sayfanın kod penceresine yapştırıp denedim olmadı Başka bir soruda

Sub Autpen ()
[b2] = Sheets(1).Name

End Sub şeklinde bir kod görmüştüm bunu denedim tek bir sayfa için çalıştı
bunu tüm kitap için bir kerede çalıştırmak mümküünmü?