Toplu Sayfa İsmi Değiştirme

[sunkid]

Sayın üstadlarım, 150 sayfdan oluşan bir excel dosyam var. Her sayfanın C2 hücresinde yazan değer o sayfanın ismi olarak yazmasını istiyorum. Örneğin sayfa adı= Sayfa1 C2 hücresinde =excelweb sayfa1 in adı excelweb olacak gibi. C2 hücresinde yazan değerleriin karekter sayısı bazı sayfalarda uzun. Excel de sayfa isimleri 31 karektere kadar alıyor. 150 sayfa olduğu için teker teker yapmak oldukça fazla zaman alıyor. Ayrıca bunun gibi 8 tane daha excel dosyam var. Şimdiden yardımlarınız için teşekkür ederim. Saygılarımla.

 

[Muhammet Okumuş]

Merhaba,

Sub Sayfa_Adı()
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("C2").Value
Next
End Sub

Kodu deneyiniz.

 

[sunkid]

Sayın hocam öncelikle teşekkür ederim. Verdiğiniz kodu çalıştırdım C2 hücresinde 31 karekterden az olanları sayfa adı olarak güncelledi ancak 31 karakterden fazla olanları değiştirmedi kod. Sizden ricam 31 karaktere kadar olan kısını al gibi bir şart ekleme şansınız var mı kod a?

 

[Korhan Ayhan]

Böyle deneyiniz.

Sheets(i).Name = Left(Sheets(i).Range("C2").Value, 31)

 

[sunkid]

teşekkür ederim söylediğiniz gibi güncelledim kodu çalıştı.