Sayfa adı

[ahmett46]

Slm
Arkadaşlar sayfa adını o sayfanın a1 hücresine formülle yazdırabilirmiyiz

 

[Muhammet Okumuş]

Formul ile değil de makro ile

Sub Ad_Ver()
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
End Sub

yapabilirsiniz.

 

[Ömer]

Merhaba,

=SAĞDAN(HÜCRE("DOSYAADI";A1);UZUNLUK(HÜCRE("DOSYAADI";A1))-MBUL("]"
 ;HÜCRE("DOSYAADI";A1);1))

Bu şekilde yazabilirsiniz.

 

[Bagcivan]

forumda buna benzer örnekler mevcuttur. Aramaya inanalım.

http://www.excel.web.tr/f14/sayfa-adyny-hucreye-yazdyrma-t27387.html

 

[Muhammet Okumuş]

Pardon ben tam tersini anlamışım. Ömer Bey formul ile cevap vermiş. Makrolu ise

Sub Ad_Ver()
On Error Resume Next
Range("A1").Value = ActiveSheet.Name
End Sub

şeklinde olacak.

 

[ahmett46]

Teşekkürler Hocam