Sayfa isimlerini toplu olarak değiştirmek

[hikmet]

Merhaba Üstatlarım;
Yapmak istediğim bir çalışma kitabında bulunan 30 sayfanın tamamının isimlerini tek seferde değiştirmek.

Örnek olarak bir çalışma kitabındaki sayfalarım 01.02.2016, 02.02.2016, 03.02.2016 ..... devam ediyor. Yapmak istediğim 01.02.2017, 02.02.2017, 03.02.2017... olarak değiştirmek.
Yani aslında her sayfanın sayfa isminin son karakterini değiştirmek.
Sayfa içinde hücrelerde yaptığımız Bul/Değiştir gibi formülle 6 olan karakteri 7 yapmak istiyorum.
Sayfa isimlerini değiştirmek bu şekilde mümkünmüdür? İlginize şimdiden teşekkür ederim.

 

[systran]

aşağıdaki kodu bir modül içine yazınız ve çalıştırınız.

Sub ad_değiştir()
Dim sh As Worksheet
Dim bul$, degistir$

bul = "2016"
degistir = "2017"
For Each sh In Worksheets
    tmp = Replace(sh.Name, bul, degistir)
    sh.Name = tmp
Next
End Sub

 

[hikmet]

Üstaf eline sağlık. Emeğine ve bilgine çok teşekkür ederim. Saygılar

 

[sawasaw]

Bunu makrosuz yapabilir miyiz?

 

[Orion1]

Bunu makrosuz yapabilir miyiz?

Makrosuz,manuel tek,tek değiştirebilirsiniz.

 

[sawasaw]

 

[Korhan Ayhan]

Makrosuz yapamazsınız..