Sayfa isimleri

Katılım
6 Mayıs 2006
Mesajlar
56
Excel Vers. ve Dili
Excel Version 2007
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

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
1.Soru
Kod:
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.
Kod:
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
 
Katılım
6 Mayıs 2006
Mesajlar
56
Excel Vers. ve Dili
Excel Version 2007
Sayın Partner, yardımınız için teşekkür ederim.
 
Üst