Çalışma Sayfasını Yeniden Adlandırma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Kodu kullanmak için, VBA düzenleyicisinde bu makroyu bir modüle ekleyin ve ardından şu şekilde çağırabilirsiniz:
Bu örnek, "MevcutSayfaAdi" adlı sayfayı "YeniSayfaAdi" olarak değiştirecektir. Kodu çalıştırmadan önce, bu adların çalışma kitabınızdaki gerçek sayfa adlarıyla eşleştiğinden emin olun.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub SayfaAdiniDegistir(eskiAd As String, yeniAd As String)
Dim sayfa As Worksheet
On Error Resume Next ' Hata varsa kodu durdurma
Set sayfa = ThisWorkbook.Sheets(eskiAd)
On Error GoTo 0 ' Hata kontrolünü sıfırla
If Not sayfa Is Nothing Then
sayfa.Name = yeniAd
Else
MsgBox eskiAd & " adında bir sayfa bulunamadı.", vbExclamation, "Hata"
End If
End SubAçıklama
Bu makro, eskiAd olarak verilen çalışma sayfasını yeniAd olarak değiştiren bir işlev gerçekleştirir. Eğer belirtilen eski adla bir sayfa bulunamazsa, kullanıcıya bir hata mesajı gösterilir.Kodu kullanmak için, VBA düzenleyicisinde bu makroyu bir modüle ekleyin ve ardından şu şekilde çağırabilirsiniz:
VBA:
Sub Test()
Call SayfaAdiniDegistir("MevcutSayfaAdi", "YeniSayfaAdi")
End SubFaydalanılması temennisiyle
