Hücreden Sayfa Adı oluşturma

[ERMAN SAYINALP]

Merhaba,

Sayfa Adlarını Tablodaki Hücrelere girerek oluşturmak mümkün müdür ?
Bunun tam tersinin yapılma yöntemini biliyorum, yani Sayfa Adlarını Tabloya aldırma işlemi mümkün.

Örneğin 50 adet sayfam var. Sayfa1, Sayfa2, Sayfa3 ........ Sayfa49, Sayfa50 gibi

Oluşturacağım A1:A50 Sütundaki Hücrelerde, A1 Hücresine ADANA girdiğimde, Sayfa1 adı ADANA olacak, A6 Hücresine SİVAS girdiğimde Sayfa6 adı SİVAS olacak.

Varsa çözümünü rica ederim.

 

[recepkull]

Aşağıdaki kodu deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Set rng = Range("A1:A50")
    
    If Not Intersect(Target, rng) Is Nothing Then
        For Each cell In Intersect(Target, rng)
            Sheets("Sayfa" & cell.Row).Name = cell.Value
        Next cell
    End If
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Alternatif olsun

Sub SayfaAdiDegis()
    For x = 1 To Sheets.Count - 1
        Sheets(x).Name = Cells(x, 1).Value
    Next
End Sub

51. sayfanın A sütununa yazacağınız isimleri Sayfa1 den Sayfa50 ye kadar değiştirir. Lütfen makroyu 51. sayfada iken çalıştırınız.
İyi çalışmalar

 

[Korhan Ayhan]

Sayfa isimlendirirken excelin 31 karakter sınırı bulunmaktadır. Bu kurala uyarak kodu revize ederseniz hatasız sonuçlar alabilirsiniz.

Bu satır yerine;

Sheets(x).Name = Cells(x, 1).Value

Aşağıdaki gibi kullanmak daha faydalı olacaktır.

Sheets(x).Name = Left(Cells(x, 1).Value, 31)

 

[ERMAN SAYINALP]

Aşağıdaki kodu deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Set rng = Range("A1:A50")
   
    If Not Intersect(Target, rng) Is Nothing Then
        For Each cell In Intersect(Target, rng)
            Sheets("Sayfa" & cell.Row).Name = cell.Value
        Next cell
    End If
End Sub

Teşekkür ederim, elinize sağlık...

 

[ERMAN SAYINALP]

Merhaba Arkadaşım,
Alternatif olsun

Sub SayfaAdiDegis()
    For x = 1 To Sheets.Count - 1
        Sheets(x).Name = Cells(x, 1).Value
    Next
End Sub

51. sayfanın A sütununa yazacağınız isimleri Sayfa1 den Sayfa50 ye kadar değiştirir. Lütfen makroyu 51. sayfada iken çalıştırınız.
İyi çalışmalar

İlginize teşekkür ederim, lakin hata alıyorum. (ekteki resim)

 

[ERMAN SAYINALP]

Sayfa isimlendirirken excelin 31 karakter sınırı bulunmaktadır. Bu kurala uyarak kodu revize ederseniz hatasız sonuçlar alabilirsiniz.

Bu satır yerine;

Sheets(x).Name = Cells(x, 1).Value

Aşağıdaki gibi kullanmak daha faydalı olacaktır.

Sheets(x).Name = Left(Cells(x, 1).Value, 31)

Korhan bey,

Tevfik bey'in yardımına yaptığınız katkı ile birlikte denediğimde de ekteki hatayı alıyorum..
Diğer taraftan RecepKull'un çözümü çalışıyor...

 

[Korhan Ayhan]

Çalışıyor dediğiniz kod önerisi içinde 31 karakter kuralı geçerlidir.

Yani hücrede 32 karakterlik bir isim olması durumunda çalışıyor dediğiniz kodda hata verecektir.

Ayrıca hata veren satırda hatanın içeriği önemlidir. Büyük ihtimalle iki sayfaya aynı isim vermeye çalışıyor olabilirsiniz. Ya da sayfa adında geçersiz karakter bulunuyor olabilir.

 

[Tevfik_Kursun]

Altın üyesiniz, örneğinizi eklemiş olsanız çözüm çok daha kolay olurdu.

 

[hakki83]

Sayfa isimlendirirken excelin 31 karakter sınırı bulunmaktadır. Bu kurala uyarak kodu revize ederseniz hatasız sonuçlar alabilirsiniz.

Bu satır yerine;

Sheets(x).Name = Cells(x, 1).Value

Aşağıdaki gibi kullanmak daha faydalı olacaktır.

Sheets(x).Name = Left(Cells(x, 1).Value, 31)

Korhan hocam merhaba
Recepkul hocamın kodunda bahsettiğiniz yeri 31 olarak yaptım fakat hata verdi.

Sheets("Sayfa" & cell.Row).Name = Left(cell.Value, 31)

 

[ERMAN SAYINALP]

Çalışıyor dediğiniz kod önerisi içinde 31 karakter kuralı geçerlidir.

Yani hücrede 32 karakterlik bir isim olması durumunda çalışıyor dediğiniz kodda hata verecektir.

Ayrıca hata veren satırda hatanın içeriği önemlidir. Büyük ihtimalle iki sayfaya aynı isim vermeye çalışıyor olabilirsiniz. Ya da sayfa adında geçersiz karakter bulunuyor olabilir.

Örnek Dosya ektedir...

 

[ERMAN SAYINALP]

Altın üyesiniz, örneğinizi eklemiş olsanız çözüm çok daha kolay olurdu.

Örnek Dosya Ektedir...

 

[recepkull]

Örneğin 50 adet sayfam var. Sayfa1, Sayfa2, Sayfa3 ........ Sayfa49, Sayfa50 gibi

Bence sizin hata alıyor olmanızın sebebi sayfa isminin bulunamıyor olmasıdır. Mesela A10 hücresinde işlem yapıyorsanız Sayfa10 adında bir sayfanızın olması lazım aksi halde hata alırsınız.

 

[ERMAN SAYINALP]

Merhaba,
Varsayımınız doğru değil. Örnek dosya aslı gibidir...

 

[recepkull]

Ben vermiş olduğum kodda herhangi bir hata almıyorum. Sizin istediğiniz gibi çalışıyor.

 

[ERMAN SAYINALP]

Pardon yanıtım size değildi, özür diliyorum.
Size sadece teşekkür etmiştim.

 

[Korhan Ayhan]

Öncelikle şunu belirtmemde fayda var.

Ben sayfa ismindeki 31 karakterlik sınırlama için örnek verirken #3 nolu mesajdaki koddan alıntı yaparak örneklendirdim. Bu tamamen bilgi amaçlı bir mesajdı. Yani #3 nolu mesajdaki kodun çözüm üretip üretmemesiyle ilgili değildir.

Ayrıca #3 nolu mesajda aşağıdaki gibi bir dipnot düşülmüş...

51. sayfanın A sütununa yazacağınız isimleri Sayfa1 den Sayfa50 ye kadar değiştirir. Lütfen makroyu 51. sayfada iken çalıştırınız.
İyi çalışmalar

 

[Tevfik_Kursun]

Tartışmayı devam ettirmeye gerek yok. Hiç biri çok önemli değil, arkadaşımızın siteye koyduğu örneklere bakmak yeterli.

 

[hakki83]

Öncelikle şunu belirtmemde fayda var.

Ben sayfa ismindeki 31 karakterlik sınırlama için örnek verirken #3 nolu mesajdaki koddan alıntı yaparak örneklendirdim. Bu tamamen bilgi amaçlı bir mesajdı. Yani #3 nolu mesajdaki kodun çözüm üretip üretmemesiyle ilgili değildir.

Ayrıca #3 nolu mesajda aşağıdaki gibi bir dipnot düşülmüş...

Korhan hocam, Recepkul hocanın koduna da 31 karakter sınırı özelliğini ekleyebilr misiniz?
(Arşivimizde böyle bulunsun)