Sayfa adı değiştirme

[SOYOLA]

Formda aradım bir örnek buldum ama çalıştıramadım.
Sorum şu
herhangi bir excel sayfasında a1 hücresine yazdığımisim o sayfanın adı olsun
mümkünmüdür?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu bu işlemi yapmak istediğiniz dosyanızın ThisWorkBook bölümüne uygulayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Range("A1") <> "" Then Sh.Name = Range("A1")
End Sub

Ben bu bölüm nerde bilmiyorum derseniz örnek dosyayı inceleyiniz.

 

[SOYOLA]

sayfa ismi değiştirme

Hocam ilginize teşekkür ederim