sayfa adını hücreye atamak

[zapatista]

Ve işte benden bir soru daha..

Sub auto_open()
[b2] = ActiveSheet.Name
End Sub

bu şekilde açık olan sayfanın adını B2 hücresine atıyorum ancak hücrenin değişmesi için çalışma kitabını kapatıp yeniden açmam gerekiyor ve sadece o anda açık olan sayfanın adı değişiyor. Sayfa adını değiştirdiğimde B2 hücresinin anında o ismi almasını sağlayabilirmiyim?

 

[Haluk]

Ingilizce Office versiyonunda asagidaki formul bu isi iyi yapar;

=MID(CELL("FileName";X2000);FIND("]";CELL("FileName";X2000))+1;98)

 

[zapatista]

Raider teşekkür ederim ama malesef Türkçe Office kullanıyorum.

 

[Haluk]

mid »» parçaal
cell »» hücre
find »» bul
FileName »» DosyaAdı

Dosyanin daha onceden kaydedilmis olmasi gerekir....

 

[Levent Menteşoğlu]

Sayfa adını değiştirip bunun B2 hücresine yazılması yerine, siz B2 hücresini değiştirin bu isim sayfa adı olarak otomatikman atansın. Bunun için aşağıdaki kodu aktif sayfanın kod sayfasına kopyalayın.

[vb:1:2d96393481]Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = [b2].Value
End Sub
[/vb:1:2d96393481]

 

[zapatista]

Sn Raider formülü yazdığımda #BAÞV! hatası veriyor. Nerde yanlış yapıyor olabilirim acaba?

Sn. leventm, alternatif öneriniz için teşekkürler. B2 nin adını sayfadan alması benim için daha kullanışlı ancak bu haliyle işin içinden çıkamazsam sizin önerinizi kullanıcam. teşekkür ederim.

 

[Haluk]

Bilemiyorum, belki TR karsiliklarini yanlis yazmis olabilirim..... emin degilim.

Dosyanin da kaydedilmis olmasi gerekir.

 

[Levent Menteşoğlu]

Birde aşağıdaki kodu deneyin. Bu kodu ThisWorkbook un kod sayfasına kopyalamalısınız.
[vb:1:a4a681c36c]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[b2] = ActiveSheet.Name
End Sub
[/vb:1:a4a681c36c]

 

[zapatista]

malesef buda olmadı. Aslında bunu bir süre önce bir excel uygulamasında görmüştüm ama ne yazıkki bir gün bana lazım olabileceğini akıl edemediğimde o dosyayı saklamadım :kafa: