Sayfa adlarını belirlediğim isimlerle değiştirmek istiyorum. Mümkünmü?

[Bora K]

Merhabalar
Yanda görüldüğü gibi
Sayfa adlarını belirlediğim isimlerle değiştirmek istiyorum.
Bu yapılabilirmi emin değilim.
Şayet yapılabilir ise yardımlarınızı rica ediyorum.

 

[dEdE]

Merhaba, Dosyanız ilişiktedir.

Sub AdDegistir()
For i = 5 To Range("H" & Rows.Count).End(3).Row
    Sheets(Cells(i, "H").Value).Name = Cells(i, "I").Value
Next
MsgBox "İşlem Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub SayfaDegistir()
    
    Dim i   As Integer
    
    Application.ScreenUpdating = False
    
    For i = 5 To Cells(Rows.Count, "H").End(3).Row
        Sheets("" & Cells(i, "H") & "").Name = Cells(i, "I")
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "SAYFA ADLARI DEĞİŞMİŞTİR....", vbInformation, "NECDET YEŞERTENER"
    
End Sub

 

[Bora K]

Konuya ilgi gösterdiğnizi için ve yardımlarınız için
ayrı ayrı teşekkür ediyorum. Ellerinize sağlık.
Makro kodu çok işime yaradı.
Keşke önceden düşünseydim.