ListView Nesnesine Sayfadan Veri Alma

Bu dosya, çalışma sayfasındaki verilerin UserForm üzerindeki ListView nesnesine nasıl alınacağını gösteren sade bir makro örneğidir. Tek bir koda odaklanır: form açıldığında Sayfa1'deki liste ListView içinde rapor görünümüyle listelenir.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde "ADI" başlığı, altında Ali, Veli, Hasan, Hüseyin, Tuğrul gibi örnek adlar bulunur. Veri aralığı A1:B31 olarak tanımlıdır; B sütunu ikinci sütun için ayrılmıştır.
• UserForm1: İçinde ListView1 nesnesi bulunan formdur ve makro kodu bu formun içindedir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod zararlı bir işlem içermez; dosya silme ya da dışarıya bağlantı yoktur.

• UserForm_Initialize: Form açılırken çalışır. Form başlığını "ExcelDepo ®" olarak ayarlar. ListView için ızgara çizgilerini (Gridlines) ve tam satır seçimini (FullRowSelect) açar, görünümü lvwReport yapar. Sütun başlıkları Sayfa1'deki A1 ve B1 hücrelerinden alınır; genişlikleri 120 ve 55 olarak verilir. Ardından 2. satırdan A sütunundaki son dolu satıra kadar dönen bir döngü her satırı ListView'e ekler: A sütunu ana öğe, B sütunu ikinci sütun (SubItems) olarak yazılır.
• UserForm_Click: Boş bir olay yordamıdır, işlem yapmaz.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Alt+F11 ile VBA düzenleyicisini açın ve UserForm1 formunu çalıştırın (F5).
3. Form açıldığında Sayfa1'deki liste ListView içinde görüntülenir.
4. Kendi verinizi kullanmak için Sayfa1'deki A ve B sütunlarını başlıklarıyla birlikte değiştirin; satır sayısı otomatik algılanır.

Sayfadan ListView'e alınan verilerin TextBox ile filtrelenmesi için TextBox ile ListView'de Veri Filtreleme içeriği incelenebilir.