Sayfa isimlerini farklı bir sayfada alt alta yazdırmak

[besen]

Merhaba Excelde açık olan sayfaları,
Başka bir sayfada alt alta yazdırmak mümkün mü?

Teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfalari_Yazdir()
    
    Dim i As Integer, sat As Integer
    
    Sheets("sayfalar").Select
    Range("A2:A" & Rows.Count).ClearContents
    
    sat = 2
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> "sayfalar" Then
            Cells(sat, "A") = Sheets(i).Name
            sat = sat + 1
        End If
    Next i
    
End Sub

.

 

[besen]

Bu sayfaya katkı yapanlara nasıl teşekkür edebilirim bilmiyorum.
Harika insanlarsınız.

Herkese çok çok teşekkür ederim.
Selam, sevgi, saygı.

 

[Merhum İdris SERDAR]

.

Alternatif:

Sub sayfaad()

Dim i As Integer

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

End Sub

.