Sayfa ( Sekme ) adı

[frk]

Selam,

Sayfa ( Sekme ) adını herhangi bir hücre içinde nasıl gösterebilirim.

Yardımcı olursanız sevinirim.

 

[Ali]

Hangi sayfada görmek istiyorsanız sağ tuş ile tıklayıp aşağıdaki kod görüntüleyi seçip kodları ekleyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = ActiveSheet.Name
End Sub

 

[Kullanıcı_Adı]

Yerleşik fonksiyonlar gibi bir hücreye

=SAYFA() yazdığınızda ilgili sayfanın ismi yazsın istiyorsanız kullanıcı tanımlı bir fonksiyon yapmanız gerekir. Bunun için; VBA modül sayfasına aşağıdaki kodu yazın.

Function sayfa()
sayfa = ActiveSheet.Name
End Function

 

[Ali]

kullanıcı tanımlı bir fonksiyon yapmanız gerekir

Bunun için Kullanıcı tanımlı bir fonksiyona gerek yoktur.

 

[enderturk]

bir alternatif de benden

=(SOLDAN(DOLAYLI(A1;1);UZUNLUK(DOLAYLI(A1;1))-4))

 

[Ali]

bir alternatif de benden

=(SOLDAN(DOLAYLI(A1;1);UZUNLUK(DOLAYLI(A1;1))-4))

Sn enderturk soru ile alakasını kuramadım.

 

[Korhan Ayhan]

Selamlar,

Bende forumda aşağıdaki gibi bir fonksiyon buldum belki işinize yarar. (Fonksiyonun doğru çalışması için dosyayın kayıtlı olması gerekiyor aksi halde #DEĞER! hatası veriyor.)

Sayfa sekme adı için;

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

Çalışma kitabı adı ve yolu için:

=HÜCRE("DosyaAdı";A2)

 

[enderturk]

kusura bakmayın bende sayfa adını vermişti ama farketmemişim daha önce bir işlem yapmıştım düzeltiyorum

a1 hücresi --> =ADRES(1;1;;;"sayfa1")
a2 hücresi --> =(SOLDAN(DOLAYLI(A1;1);UZUNLUK(DOLAYLI(A1;1))-4))


tabi bu formülün işlemesi için daha önce aynı sayfaya başvuruda bulunan bir hücre olması gerekiyor. sonradan farkettim tekrar özür diliyorum. (sonuçta sayfa ismini elle yazmak, başvuru içeren hücreyi oluşturmaktan daha kolay)

 

[enderturk]

formülü biraz değiştirdim

=(SOLDAN(ADRES(1;1;;;"sayfa1");UZUNLUK(ADRES(1;1;;;"sayfa1"))-4))

tek hücrede iş bitiyor ama tekrar söylüyorum araya sayfa1 yazmaktansa hücreye doğrudan sayfa1 yazmak şimdilik daha mantıklı. bu benim de aradığım bir şey, eğer makrosuz olarak yukarıdaki formülü biraz daha değiştirmekle daha iyi bir sonuç çıkar sanırım
sizden vaktinizi aldığım için tekrar özür diliyorum

 

[enderturk]

sayın COST_CONTROL

benim de aradığım bunun gibi birşeydi
ben yukarıdaki iki mesajı yazarken siz çoktan cevabı vermişsiniz
teşekkür ederim

 

[frk]

Herkese çok teşekkürler...

 

[rocksever]

cevapta emeği geçen herkese çok teşekkürler benim işime de yaradı