Sayfa adını hücreden aldırma

[sward175]

Herkese İyi günler.
Yaklaşık 50 sayfalık excel dosyam var, Sayfalar isimlerini kendi sayfasının G4 hücresinden almasını istiyorum.
Bu konu hakkında yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[Muzaffer Ali]

Merhaba.

Alt+F11 e basarak VBA yı açın.
"BuÇalışmaKitabı(ThisWorkbook)" kod sayfasını açın.
Aşağıdaki kodları yapıştırın.

Her sayfanın "G4" hücresinde bir değişiklik olduğunda kodlar çalışacak ve sayfa ismini değiştirecektir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Range("G4")) Is Nothing Then
        Sh.Name = Target.Text
    End If
End Sub

 

[sward175]

Sayın, dalgalikur,
Teşekkürler ediyorum,
Nice güzel günlere,
sward175