Toplu olarak makro ile sayfa adı degiştirmek

[mehmet2285]

benim bir dosyam var içinde çok sayıda sayfa var
benim yapmak istedigim şu;
bütün sayfa isimlerini , her sayfanın A2 hücresine göre toplu olarak adlandırmak

örnek sayfa1'i a2 deki "2009" , sayfa2"yi a2 deki "1999" .......olarak toplu değiştirmeyi yapacak bir makro .
bu konuda yardım edebilir misiniz.

 

[İhsan Tank]

merhaba

Sayfa Adını verir
Sub SayfaAdı()
ActiveSheet.name=Range("a2").value
End Sub

'A1 Hücresine Sayfa ismini verir
Sub Hücreadı()
Range("a2").value=ActiveSheet.name
End Sub

bu kodlar alıntıdır.

 

[mehmet2285]

merhaba

Sayfa Adını verir
Sub SayfaAdı()
ActiveSheet.name=Range("a2").value
End Sub

'A1 Hücresine Sayfa ismini verir
Sub Hücreadı()
Range("a2").value=ActiveSheet.name
End Sub

bu kodlar alıntıdır.

Hocam ilk kodu bütün sayfaları tek seferde yapacak gibi yeni bir şekil versek süper olacak

 

[omerceri]

Sub degistir()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("A2")
Next
End Sub

 

[mehmet2285]

Sub degistir()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("A2")
Next
End Sub

ömer hocam tşkler çok sag olun. kolay gelsin...