Sayfa İsminin Hücre Değerinden Alması

[mucalt]

merhabalar

Excel sayfa isminin hücreden almasını istiyorum. bununla ilgili forumda arama yaptım şöyle bir kod buldum

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "H5" Then Exit Sub
ActiveSheet.Name = Range("H5").Value
End Sub

ancak bulduklarım benim senaryoma göre çalışmadı şöyle ki doğrudan hücreye metin yazıldığında sayfa ismi değişiyor fakat hücre ismi formülle çekildiğinde değişmiyor.

a1 hücresinde mahalle adı
a2 hücresinde ada
a3 hücresinde parsel bilgisi yer almakta bu üç bilgiyi birleştir formülü ile farklı bir hücrede (örneği a4 hücresinde) birleştirip sayfa adını bu hücreden alsın istiyorum. mahalle adı ada ve parsel numaraları değiştiğinde değişmiyor.

formülle çekilen isimler için farklı bir yöntem var mı? yada en azından excel her açılıp kapandığında ismi yenilemesi mümkün mü?

 

[Feylosof]

Merhaba

If Target.Address(0, 0) <> "H5" Then Exit Sub

Bu satırı silip dener misiniz?

 

[mucalt]

Merhaba

If Target.Address(0, 0) <> "H5" Then Exit Sub

Bu satırı silip dener misiniz?

denedim ama işe yaramadı. Hücre içindeki formül değişmediği için değişiklik yok gibi algılıyor. hücre içine doğrudan metin yazıldığında formül çalışıyor ama birleştir formülü veri çekince diğer hücrelerde veri değişse bile değişmiyor.

ilginiz için çok teşekkürler

 

[Feylosof]

O zaman örnek bir dosya eklemeniz daha uygun olur.

 

[Korhan Ayhan]

Bu kodları boş bir modüle yerleştirip deneyiniz.

Dosyanızın açılışında ve kapanışında sayfa isimlerini otomatik düzenleyecektir.

Option Explicit

Sub Auto_Open()
    Call All_Sheets_Name_Change
End Sub

Sub Auto_Close()
    Call All_Sheets_Name_Change
End Sub

Sub All_Sheets_Name_Change()
    Dim Sh As Worksheet
   
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Range("A4") <> "" Then Sh.Name = Left(Sh.Range("A4"), 31)
    Next
End Sub

 

[mucalt]

O zaman örnek bir dosya eklemeniz daha uygun olur.

kafamdaki sayfayı daha oluşturmamıştım ama yine de ben size anlaşılabilir bir excel örneğini drive üzerinden paylaşıyorum. Dosya> Farklı Kaydet>Kopyasını indir diyerek bilgisayarınıza kayıt edebilirsiniz.

Sayfaİsmi.xlsm

ilginiz için teşekkürler.

 

[mucalt]

Bu kodları boş bir modüle yerleştirip deneyiniz.

Dosyanızın açılışında ve kapanışında sayfa isimlerini otomatik düzenleyecektir.

Option Explicit

Sub Auto_Open()
    Call All_Sheets_Name_Change
End Sub

Sub Auto_Close()
    Call All_Sheets_Name_Change
End Sub

Sub All_Sheets_Name_Change()
    Dim Sh As Worksheet
  
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Range("A4") <> "" Then Sh.Name = Left(Sh.Range("A4"), 31)
    Next
End Sub

Korhan bey harikasınız! kod çalıştı yalnız şöyle bir sorun oluştu. excel kitabında kapak, içindekiler, özet, kaynakça gibi sabit olan sayfalar var. bu sayfalarda bu kodun çalışmamasını istiyorum. kod şu haliyle tüm sayfalarda çalışıyor.

kodu ikiye bölmek istedim

Option Explicit
Sub Auto_Open()
    Call All_Sheets_Name_Change
End Sub
Sub Auto_Close()
    Call All_Sheets_Name_Change
End Sub

kısmını modüle yükledim

Sub All_Sheets_Name_Change()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Range("A4") <> "" Then Sh.Name = Left(Sh.Range("A4"), 31)
    Next
End Sub

diğer kısmı sayfaya yükledim hata verdi.

hepsini sayfaya yükledim yine hata verdi

 

[Feylosof]

Bende çalışıyor dosya. E7 F7 G7 Hücrelerine veri girdikten sonra ENTER düğmesine basınca çalışması lazım.

 

[Korhan Ayhan]

Mesajimda açıkça belirtmiştim.

Bu kodları boş bir modüle yerleştirip deneyiniz.

 

[bmutlu966]

Alternatif olsun. Kodları sayfanın kod bölümüne ekleyip deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A1:A4")) Is Nothing Then Exit Sub
    cancel = True
    Range("A4").Formula = "=A1&A2&A3"
    ActiveSheet.Name = [A4]
End Sub

 

[mucalt]

Bende çalışıyor dosya. E7 F7 G7 Hücrelerine veri girdikten sonra ENTER düğmesine basınca çalışması lazım.

Korhan beyin verdiği formül çalışıyor, yalnız tüm sayfalarda değişikli yaptı. isminin değişmesini istemediğim sayfalar vardı. onlar da değişti.

Mesajimda açıkça belirtmiştim.

Korhan bey çok teşekkür ederim.

 

[mucalt]

Alternatif olsun. Kodları sayfanın kod bölümüne ekleyip deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A1:A4")) Is Nothing Then Exit Sub
    cancel = True
    Range("A4").Formula = "=A1&A2&A3"
    ActiveSheet.Name = [A4]
End Sub

mutlu bey ilginiz için çok teşekkür ederim. Formül sayfa kodunda çalışması nedeniyle yalnızca eklediğim sayfalarda çalıştı. bu açıdan benim işimi gördü. bu kodlamayı epey araştırdım ama kaynak bulamamıştım.

Feylesof, Korhan ve Mutlu bey çok teşekkür ederim

 

[Korhan Ayhan]

Önerdiğim kodun sadece son bloğunu aşağıdaki gibi değiştirip kullanabilirsiniz.

Sub All_Sheets_Name_Change()
    Dim Sh As Worksheet, Exclude As Variant, X As Integer, My_Check As Boolean
    
    Exclude = Array("Kapak", "İçindekiler", "Özet", "Kaynakça")
    
    For Each Sh In ThisWorkbook.Worksheets
        For X = LBound(Exclude) To UBound(Exclude)
            If Exclude(X) = Sh.Name Then My_Check = True
            If My_Check = True Then GoTo 10
        Next
        
        If Sh.Range("A4") <> "" Then Sh.Name = Left(Sh.Range("A4"), 31)
10  Next
End Sub