Sayfa isminin otomatik yenilenmesi

Katılım
23 Ekim 2006
Mesajlar
938
Beğeniler
0
Excel Vers. ve Dili
2016 - Türkçe
#1
Merhabalar
Aşağıdaki kod ile sayfa ismini buluyorum. Ama sayfayı kopyaladığımda veya sayfa ismini değiştirdiğimde yeni sayfa ismini otomatik yenilemiyor. Otomatik olarak sayfa ismini yenilemesi için kodu nasıl revize etmeliyiz?
Saygı ve selam ile ...

Function syf()

syf = ActiveSheet.Name

End Function
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,442
Beğeniler
673
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#2
Rich (BB code):
Function syf()
    Application.Volatile
    syf = ActiveSheet.Name
End Function
.
 
Katılım
23 Ekim 2006
Mesajlar
938
Beğeniler
0
Excel Vers. ve Dili
2016 - Türkçe
#3
Haluk Bey ilginiz için teşekkür ederim. Verdiğiniz kodu çalıştıramadım. Daha doğrusu kod, sayfa ismini değiştirdiğimde çalışıyor ama sayfayı kopyaladığımda çalışmıyor. Yani mevcut sayfayı taşı ve kopyala dediğimde yeni oluşan sayfanın ismi otomatik gelmiyor. (İllaki herhangi bir hücreye girip enter ile hücreden çıkınca yeni sayfa ismi geliyor.) Cahilliğimi bağışlayın belkide ben yapamadım. Saygı ve selam ile ...
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
24,636
Beğeniler
426
Excel Vers. ve Dili
OFFICE 2019 PRO TR
#4
Aşağıdaki gibi deneyiniz.

Kod:
Function syf(Adres As Range)
    Application.Volatile True
    syf = Adres.Parent.Name
End Function
Aşağıdaki gibi kullanın.

Kod:
=syf(A1)
 
Katılım
23 Ekim 2006
Mesajlar
938
Beğeniler
0
Excel Vers. ve Dili
2016 - Türkçe
#5
Aşağıdaki gibi deneyiniz.

Kod:
Function syf(Adres As Range)
    Application.Volatile True
    syf = Adres.Parent.Name
End Function
Aşağıdaki gibi kullanın.

Kod:
=syf(A1)
Teşekkür ederim Korhan Bey. Tam istediğim gibi olmuş.
Hakkınızı helal edin.
 
Üst