Sayfa İsmini Hücreye Getirme

[iplikci_80]

Örnek çalışmada sayfa ekleme + bastıkça aylar OCAK, ŞUBAT, MART …… gidiyor. Benim burada yapmak istediğim şey oluşan sayfa isminin oluşan her sayfanın B2 hücresine gelmesini sağlamak için makro veya B2 hücresindeki formülü bu isteğime uyarlama hususunda yardımlarınızı rica ediyorum.

 

[Ömer]

Merhaba,

B2:

=PARÇAAL(HÜCRE("DOSYAADI";A1);MBUL("]";HÜCRE("DOSYAADI";A1))+1;20)

Yada BuÇalışmaKitabı sayfasındaki kodlarda;

10:
satırından önce aşağıdaki satırı ilave edin.

[B2] = ActiveSheet.Name

 

[AdemCan]

Workbook_NewSheet kodlarında;
ActiveSheet.Name = aylar((Sheets.Count - 1) Mod 12) satırının altına Range("B2") = ActiveSheet.Name satırını ekleyiniz.

 

[iplikci_80]

Arkadaşlar ilginize çok teşekkür ederim.