Sayfa İsimlerini Hücrelere Yazdırma

  • Konuyu başlatan Konuyu başlatan ben28
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Çözüm
Kod:
Sub SayfaIsimleri()
    Dim sheet As Worksheet
    Dim i As Integer
    i = 1

    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Sayfa İsimleri"

    For Each sheet In ThisWorkbook.Sheets
        Sheets("Sayfa İsimleri").Cells(i, 1).Value = sheet.Name
        i = i + 1
    Next sheet
End Sub
Boş bir sayfa ekleyip oraya yazdırır. Eğer siz var olan sayfalardan bir tanesine yazdırmak isterseniz, Sheets("Sayfa İsimleri") kısmını kendinize göre uyarlarsını. Üstteki Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Sayfa İsimleri" satırını da silebilirsiniz.
Kod:
Sub SayfaIsimleri()
    Dim sheet As Worksheet
    Dim i As Integer
    i = 1

    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Sayfa İsimleri"

    For Each sheet In ThisWorkbook.Sheets
        Sheets("Sayfa İsimleri").Cells(i, 1).Value = sheet.Name
        i = i + 1
    Next sheet
End Sub
Boş bir sayfa ekleyip oraya yazdırır. Eğer siz var olan sayfalardan bir tanesine yazdırmak isterseniz, Sheets("Sayfa İsimleri") kısmını kendinize göre uyarlarsını. Üstteki Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Sayfa İsimleri" satırını da silebilirsiniz.
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt