sayfa adını hücreden çekmek

[gurbuzs]

Merheba
A1 hücresindeki 09-01-2023 yazdığınız varsayalım, bunu sayfa ismine otomatik yazdırarcağım.
diğer sayfalardaki A1 hücresindeki de otomatik diğer sayfalara otomatik yazmalı.

 

[Korhan Ayhan]

Deneyiniz.

ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayınız;

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo 10
    Application.EnableEvents = False
    Sh.Name = Range("A1")
    Application.EnableEvents = True
    Exit Sub
10  MsgBox "Bu sayfa ismi daha önce kullanılmıştır!", vbCritical
    Target.ClearContents
    Target.Select
    Application.EnableEvents = True
End Sub

 

[gurbuzs]

Üstadım teşekkür ederim 10 numara 5 yıldız