Hücreden sayfa adı verme

[Mehmet Sait]

Merhaba,

400 sayfadan oluşan bir dosyam mevcut. 1. sayfada A1'den A400'e kadar olan hücrelere sayfa adlarını yazıp makro ile değiştirmek istiyorum ancak kod bulamadım.

Teşekkürler.

 

[Muhammet Okumuş]

Merhaba,

Sub Ad_Ver()
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1)
Next
End Sub

Kodu deneyiniz.

 

[Muhammet Okumuş]

Kodu sayfa adlarının olduğu sayfada çalıştırınız.

 

[tirEdsOuL]

Sn. Ömer beyin eskilerden vermiş olduğu bir cevap..

Sub SayfalarıListele()
 
    Dim i As Integer, sat As Integer, sut As String
 
    sut = "A" 'hangi sütuna sıralanacağı
    sat = 2 'hangi satırdan başlayacağı
 
    Range(sut & sat & ":" & sut & Rows.Count).ClearContents
 
    For i = 1 To Worksheets.Count
        Cells(sat, sut) = Sheets(i).Name
        sat = sat + 1
    Next i
 
End Sub

 

[Mehmet Sait]

Merhaba,

Kodu deneyiniz.

Denedim, tam istediğim gibi..
Teşekkür ederim.

 

[Mehmet Sait]

Sn. Ömer beyin eskilerden vermiş olduğu bir cevap..

Sub SayfalarıListele()
 
    Dim i As Integer, sat As Integer, sut As String
 
    sut = "A" 'hangi sütuna sıralanacağı
    sat = 2 'hangi satırdan başlayacağı
 
    Range(sut & sat & ":" & sut & Rows.Count).ClearContents
 
    For i = 1 To Worksheets.Count
        Cells(sat, sut) = Sheets(i).Name
        sat = sat + 1
    Next i
 
End Sub

Teşekkür ederim.