Aşağıdaki makro, bir çalışma kitabındaki her sayfada döngü yapar ve her sayfanın sekme adını seçtiğiniz bir sayfaya sırayla yazar. Bu, birçok sayfa içeren bir çalışma kitabındaki her sayfanın hızlı bir listesi için kullanışlı olabilir.
Bir Çalışma Kitabındaki Tüm Çalışma Sayfalarını Listeleme
Makroyu kullanmak için, koddaki Sayfa1 kelimesini (iki kez görünür) sonuçları istediğiniz sekme adıyla değiştirin. Çıktı sekmesinde önemli bir bilgi olmadığından emin olun çünkü verileri yazmadan önce temizler.
| 123456789101112131415 | Alt Liste Sayfaları()Dim ws As Çalışma SayfasıDim x Tamsayı Olarakx = 1Sayfalar("Sayfa1").Aralık("A:A").TemizleÇalışma Sayfalarında Her ws içinSheets("Sayfa1").Cells(x, 1) = ws.Namex = x + 1SonrakiAlt Bitiş |
