ListBox Üzerinden Sayfaya Şartlı Veri Aktarma

Bu dosya, Sayfa1'deki verilerin bir UserForm üzerindeki ListBox nesnesinde listelenmesini ve yalnızca seçilen satırların Sayfa2'ye aktarılmasını gösteren makrolu bir örnektir. Dosya açıldığında form otomatik olarak görüntülenir.

Dosyanın içeriği​

• Sayfa1: Kaynak veri sayfasıdır. A1:D7 aralığında "Adı" ve "İli" başlıkları ile Ali, Hasan, Ahmet, Helin, Ayşe ve Jale kayıtları bulunur; İl sütununda tüm kayıtlar İstanbul olarak girilmiştir.
• Sayfa2: Hedef sayfadır. Başlık satırı hazır olarak gelir; ListBox'tan seçilen kayıtlar buraya yazılır. Örnekte Ali, Ahmet ve Jale aktarılmış durumdadır.
• UserForm1: Dört sütunlu bir ListBox ve aktarma işlemini yapan bir CommandButton içerir.

Makrolar​

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

• Workbook_Open: Çalışma kitabı açıldığında UserForm1'i gösterir.
• UserForm_Initialize: ListBox'ı dört sütun olarak ayarlar ve çoklu seçimi (fmMultiSelectMulti) açar. Sayfa1'de A sütunundaki son dolu satıra kadar 2. satırdan itibaren A, B, C ve D sütunlarındaki değerleri ListBox'a ekler.
• CommandButton1_Click: ListBox'taki satırları tek tek kontrol eder, seçili olanları Sayfa2'de ilk boş satırdan başlayarak A:D sütunlarına yazar. Sayfa1'in başlık satırı da Sayfa2'nin A1 hücresine kopyalanır. İşlem bitince "Seçtiğiniz veriler aktarılmıştır." mesajı gösterilir ve Sayfa2 açılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; UserForm1 otomatik olarak görüntülenir.
2. ListBox'ta aktarmak istediğiniz satırları birden fazla seçin.
3. CommandButton1 düğmesine tıklayın.
4. Bilgi mesajını onaylayın; seçilen kayıtlar Sayfa2'de listelenir.
5. Kendi verinizle kullanmak için Sayfa1'deki kayıtları değiştirin; form bir sonraki açılışta güncel listeyi gösterir.

Aynı kayıtlar tekrar aktarılırsa Sayfa2'deki mevcut satırların altına eklenir; yeni bir aktarım öncesinde Sayfa2'deki eski kayıtların silinmesi gerekir.