sayfa adını hücreye yazdırma

[burak]

selamlar

sayfa adını hücreye nasıl yazdırabilirim.?
sayfa1, A1 hücresine örneğin

 

[ileriexcel]

sayfa kod bölümüne kopyalayınız
Private Sub Worksheet_Activate()
s = ActiveSheet.Name
[a1] = s
End Sub

 

[burak]

Teşekkürler

 

[tirvana]

makrosuz olarak;
önce dosyayı kaydedin

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

(çalışma kitabını kaydetmemişseniz değer# hatası verir.)

 

[burak]

Makrasuz olması çok işime yaradı.

Teşekkür ediyorum..

 

[hsayar]

teşekkürler baya işime yaradı

 

[kaanil]

Excel 2010 ingilizce kullanıyorum ve yukarıdaki formülü şu şekilde yazdım

=RIGHT(CELL("filename";A1);LEN(CELL("filename";A1))-SEARCH("]";CELL("filename";A1);1))

fakat DEĞER hatası vermektedir.

 

[Korhan Ayhan]

Merhaba,

Formülü aldığınız mesajda bir not yazılmış. Ona dikkat ederseniz hata düzelecektir.

 

[kaanil]

Yazılan nottan kast ettiğiniz ise ona dikkat etmiştim. Hatta kaydettim, kapattım, tekrar açtım.

 

[Korhan Ayhan]

Merhaba,

Bu durumda İngilizce ofisten dolayı sizin formül ayıracınız ";" yerine "," olabilir. Birde bunu deneyin.

 

[kaanil]

Onu da denemiştim. Virgül (,) işaretini kabul etmiyor. Formül hatası veriyor.

 

[fatih4128]

--------------------------------------------------------------------------------
s.a hepinize hayırlı cumalar.
belki bu açılan konunun dışında bi konu olabilir ama nereye yazacağımı bilemediğim için buraya yazıyorum kusura bakmayın lütfen.
iki konuda yardımlarınıza ihtiyac duydum ilgilenirseniz minnettar kalcağım sizlere.

 

[Korhan Ayhan]

Merhaba,

"filename" ifadelerini "FILENAME" olarak düzeltin.

 

[kaanil]

"FILENAME" olarak yazınca çalıştı. teşekkür ederim.