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. :cry:

[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: