Sayfa isimleri

[patroklos]

Merhaba Arkadaşlar;
Benim sorum: Sayfa isimlerini A1 hücresine otomatik yazılması yada tam tersi olarak A1 hücresindeki ismin Sayfa ismi olarak yazılması nasıl olabilir.

 

[Mahmut Bayram]

1.Soru

Sub Düğme1_Tıklat()
  Dim iSheet As Long
  For iSheet = 1 To ActiveWorkbook.Worksheets.Count
    ActiveCell.Offset(iSheet - 1, 0) = "'" & Worksheets(iSheet).Name
  Next iSheet
End Sub

2.Soru
Sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Range("a2").Select
End If
If Target = Range("A1") Then ActiveSheet.Name = Target
End Sub

 

[patroklos]

Sayın Partner, yardımınız için teşekkür ederim.