sayfa ismi atama

[eses06]

arkadaşlar benim yapmak istediğim çok fazla sayfadan oluşan bir excel sayfasında örneğin ilk sayfadaki A2 hücresinin adını direk sayfa ismi olarak değiştirsin.Yada a2 hücresindeki isim ile Liste kelimesini birleştirip sayfa ismi olarak atasın bunu makro olarak nasıl yapabilirim şimdiden teşekkürler. İsteme nedenim her defasında sayfa isimlerini tekrar tekrar manuel olarak değiştirmek zaman alıyor benim için üye olmadığım için dosya ekleyemiyorum kusura bakmayın teşekkürler ama kısaca istediğim Sayfa1 ismini o sayfanın a2 hücresindeki değer ile yazması Sayfa 2 de de aynı şekilde böylece tüm sayfaların adının otomatik olarak değişmesini istiyorum biraz uzan ve karmaşık oldu ama tekrar ilginize teşekkürler

 

[Necdet]

Merhaba,

Bu isteğiniz tüm sayfalarda mı olacak? Tüm sayfaların A2 hücresindeki değere göre ilgili sayfa bu ismi mi alacak?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyebilirsiniz.

Sub Sayfa_Adi_Guncelle()
    Dim Sayfa As Worksheet
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Range("A2") <> "" Then Sayfa.Name = Sayfa.Range("A2")
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Necdet]

Merhaba,

Korhan bey yanıtlamış bende başka bir mantık düşündüm.

Her sayfanın A2 hücresi değiştiğinde çalışacak kod.
Aşağıdaki kodlar BuÇalışmaKitabı'nın kod bölümünde olmalı.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
    On Error Resume Next
    If Not Intersect(Target, [A2]) Is Nothing And Not [A2] = "" Then ActiveSheet.Name = Range("A2") & " Liste"
    If Err.Number = 1004 Then MsgBox Range("A2") & " ADINDA SAYFA ADI VAR, DEĞİŞTİRİLMEDİ....", vbCritical, "HATA..."
    
End Sub

 

[eses06]

Teşekkür ederim çok faydalı oldu sağolun var olun

 

[şehiriçi]

korhan hocam bu konu benide ilgilendiren bir sorun idi ama sizin kod u ben çalıştıramadım . nasıl çalıştırabilirim

 

[Korhan Ayhan]

Ne yaptınızda çalışmadı?