Sayfalardaki Başlıkları ListBox Nesnesinde Listeleme

Bu dosya, çalışma kitabındaki sayfa adlarını bir UserForm üzerindeki ListBox nesnesinde listeler. Bir sayfa adı seçildiğinde o sayfanın birinci satırındaki başlıklar ikinci ListBox'a aktarılır. Örnek, ListBox'a veri ekleme, iki ListBox'ı birbirine bağlama ve satır yerine sütun boyunca veri okuma yöntemlerini gösterir.

Dosyanın içeriği​

• Sheet1: A1:N1 aralığında Header1, Header3, Header5 gibi tek satırlık örnek başlıklar bulunur (A, C, E, G, I, K ve M sütunlarında).
• hello: A1:G1 aralığını kapsayan ikinci örnek sayfadır.
• UserForm1: Sayfa adlarını listeleyen lbxSheets ve başlıkları listeleyen lbxHeaders adlı iki ListBox'ı içeren kullanıcı formudur.

Dosyada formül bulunmaz; tüm işlem makro koduyla yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlem yoktur.

• UserForm_Initialize: Form açıldığında çalışır. Çalışma kitabındaki tüm sayfaları dolaşır ve her sayfanın adını lbxSheets nesnesine ekler.
• lbxSheets_Click: İlk ListBox'ta bir sayfa adına tıklandığında çalışır. Önce lbxHeaders listesini temizler. Ardından seçilen sayfanın birinci satırındaki son dolu sütunu End(xlToLeft) ile bulur ve 1. sütundan o sütuna kadar olan hücre değerlerini ikinci ListBox'a ekler.

Birinci satırdaki boş hücreler de listeye boş öğe olarak eklenir. Bu nedenle Sheet1 seçildiğinde A, C, E gibi sütunların arasındaki boş sütunlar da listede görünür.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Visual Basic düzenleyicisinde (Alt+F11) UserForm1 formunu seçip F5 ile çalıştırın.
3. Soldaki ListBox'tan bir sayfa adına tıklayın.
4. Seçilen sayfanın birinci satırındaki başlıklar diğer ListBox'ta listelenir.
5. Kendi sayfalarınızda denemek için birinci satıra başlıklarınızı yazmanız yeterlidir; kod sayfa sayısına ve sütun sayısına göre kendiliğinden uyum sağlar.