Soru Sayfa Adı Değiştirme

[serhatyaman43]

Arkadaşlar merhaba ekteki dosyada sayfa değiştiğinde hücredeki isimlerde yeni sayfalar açıyor.
mesela sayfa1 in C3 hücresindeki değeri kullanarak örneğin a5 sayfasının ismini nasıl değiştirebilirim?
Yardımcı olabilirseniz sevinirim.

Kitap1.rar dosyasını indir - download

Kitap1.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[serhatyaman43]

İstediğimi tam anlatamamışım.
sayfa2 nin B3 hücresindeki değer ne ise o sayfayı bulup o sayfanın ismini benim istediğim değer ile değiştirmek istiyorum.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

Sub SayfaIsmiDegistir()
    Dim syf As Worksheet
    Dim syfBul As Worksheet
    Dim YeniSayfaAdi As String
    
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = Worksheets("Sayfa2").Range("B3").Text Then
            Set syfBul = syf
            Exit For
        End If
    Next
    
    If syfBul Is Nothing Then
        MsgBox "Sayfa2'nin B3 hücresinde yazan '" & Worksheets("Sayfa2").Range("B3").Text & "' isimde bir sayfa yok."
        Exit Sub
    Else
        YeniSayfaAdi = InputBox("Yeni sayfa adını giriniz.")
        If YeniSayfaAdi = "" Then Exit Sub
        syfBul.Name = YeniSayfaAdi
    End If
End Sub

 

[serhatyaman43]

Teşekkür ediyorum. Sorunum bu kodlarla çözüldü.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.