Sayfa Adlarını Hücreye Göre Değiştirmek

[htsumer]

Şimdi 500 Adet Sayfanın B1 Hücresindeki değer ne ise sayfa adını o yapmak istiyorum.Tek tek yapmak zor olacak.Bunu bir makro yardımı ile yapmak istiyorum

Kısaca;

500 Adet Sayfa'nı her bir sayfasının B1 Hücresindeki değer ne ise o sayfanın adı B1 deki veri( Veri olarak metin) olacak..

Not:Sayfanın B1 Hücresindeki değer karakter yönünden 31 karakterden fazla olanlar var ve bu fazlalık nedeni makro çalışırken 31 karakteri aşanlar olduğunda hata vermemesi ve B1 Hücresi 31 karakterden uzun olsa bile 31 karakterlik kısmını sayfa adı olarak alması gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SAYFA_ADI_DÜZENLE()
    Dim SAYFA As Worksheet
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Range("B1") <> "" Then SAYFA.Name = Left(SAYFA.Range("B1"), 31)
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[htsumer]

Çok teşekkür ederim öyle bir güzel olduki makro çalışırken 4 köşe oldum..Allah razı olsun ...Çok güzel kod arşive aldım

İyi çalışmalar dilerim..

 

[baydeniro]

Sayın Korhan Ayhan, süper bir kod. Çok teşekkürler.