Sayfa İsimlerini Text Olarak Alma

[ridvanucok]

Arkadaşlar merhaba,

Örnek ekte tarafınıza takdim edilmiş olup; özet geçmek gerekirse ekli excel dosyasında,

►1.Sayfa = OLUŞTUR
►2.Sayfa = YAZI KALIPLARI
►3.Sayfa = HESAP BİLDİRİM TABLOSU
►4.Sayfa = HESAP EKSTRE TABLOSU
►5.Sayfa = NAKDİ KREDİ TABLOSU v.s. sayfaları yer almakta.

Bu sayfa isimlerini text olarak alarak yeni bir excel sayfası açıp oraya sırası ile yazdırabilir miyim? Konu hakkında değerli yardım ve yönlendirmelerinizi rica ederim.

İyi çalışmalar,

 

[Korhan Ayhan]

Deneyiniz.

Sub Sayfalari_Listele()
    Dim S1 As Worksheet, Sayfa As Worksheet, Satir As Integer
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("RAPOR").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    Set S1 = Sheets.Add
    S1.Name = "RAPOR"
    Satir = 1
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "RAPOR" Then
            S1.Cells(Satir, 1) = Sayfa.Name
            Satir = Satir + 1
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ridvanucok]

Korhan Üstadım, öncelikle ilginizden dolayı teşekkür ederim.
Sorguyu çalıştırdığımda ekteki sonuca ulaşıyorum. Sadece Sayfa1 yazıyor. Oysa ki benim talebim her sayfa ismini yazdırmak.

Değerli yönlendirmelerinizi rica ederim.

Deneyiniz.

Sub Sayfalari_Listele()
    Dim S1 As Worksheet, Sayfa As Worksheet, Satir As Integer
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("RAPOR").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    Set S1 = Sheets.Add
    S1.Name = "RAPOR"
    Satir = 1
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "RAPOR" Then
            S1.Cells(Satir, 1) = Sayfa.Name
            Satir = Satir + 1
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Eklediğiniz resim çok küçük. Bir şey belli olmuyor.

Kodun Sayfa1 üretmesi için yeni bir excel çalışma kitabında uyguluyor olmanız gerekir. Ayrıca bu dosyada başka sayfa olmaması gerekir.

Bunları kontrol ediniz.

 

[ridvanucok]

Verdiğiniz ek bilgiler için teşekkür ederim, sorunu çözdüm. Veriğiniz kodlar doğru çalışıyor. İyi çalışmalar dilerim.

Eklediğiniz resim çok küçük. Bir şey belli olmuyor.

Kodun Sayfa1 üretmesi için yeni bir excel çalışma kitabında uyguluyor olmanız gerekir. Ayrıca bu dosyada başka sayfa olmaması gerekir.

Bunları kontrol ediniz.