Excel Hücresinde yazanı sayfa adı olarak görmek

[turgayzeynep]

Hocam kolay gelsin iyi çalışmalar Excel'de A sütundaki ismi sayfa adı olarak gözükmesini istiyorum Nasıl yapabilirim yardımcı olurmusunuz ayrı ayrı 7 sayfa için yapcam

 

[mustafa1205]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer


If Not Intersect(Target, Me.Range("A1:A7")) Is Nothing Then
Application.EnableEvents = False


For i = 1 To 7
On Error Resume Next
ThisWorkbook.Sheets(i).Name = Me.Cells(i, 1).Value
On Error GoTo 0
Next i

Application.EnableEvents = True
End If
End Sub



Yukarıdaki kodu sayfa isimlerini belirlemek istediğiniz sayfanın kod bölümüne yapıştırın. Siz hücrelerde değişiklik yaptıkça otomatik olarak sayfa adlarını günceller. A1:A7 Arası hücreler içindir..

 

[malitogan]

Gayet güzel çalışıyor. Sadece A1:A7 arası hücrelerdeki verileri silince sayfa isimleri eski haline gelmiyor.