ListBoxlar Arasında Veri Transferi

Bu dosya, bir UserForm üzerindeki iki ListBox arasında veri transferinin nasıl yapıldığını gösteren çalışan bir örnektir. Sayfa1'deki liste soldaki ListBox'a yüklenir; seçilen öğeler butonlarla sağdaki ListBox'a, gerektiğinde geri taşınır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:A6 aralığında liste verisi bulunur. İlk satır başlıktır, öğeler A2 hücresinden itibaren okunur.
• UserForm1: İki ListBox (ListBox1 ve ListBox2) ile aralarında öğe taşıyan iki CommandButton içerir.
• ThisWorkbook: Dosya açıldığında formu otomatik gösteren kod burada yer alır.

Makrolar​

• Workbook_Open: Dosya açıldığında UserForm1 otomatik olarak ekrana getirilir.
• UserForm_Initialize: Form açılırken Sayfa1'in A sütununda A2'den son dolu satıra kadar olan değerler ListBox1'e eklenir.
• CommandButton1_Click: ListBox1'de seçili öğeyi ListBox2'ye ekler ve ListBox1'den kaldırır.
• CommandButton2_Click: ListBox2'de seçili öğeyi ListBox1'e ekler ve ListBox2'den kaldırır.

Makrolar yalnızca form üzerindeki listeleri değiştirir; dosya silme ya da dış bağlantı işlemi içermez. Aktarma işlemi Sayfa1'deki kaynak veriyi değiştirmez, yalnızca formdaki listeleri etkiler.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; UserForm1 kendiliğinden görüntülenir.
2. Soldaki ListBox1'de aktarmak istediğiniz öğeyi seçin ve ilk butona tıklayın; öğe sağdaki ListBox2'ye geçer.
3. Öğeyi geri almak için ListBox2'de seçim yapıp ikinci butona tıklayın.
4. Kendi listenizi kullanmak için Sayfa1'in A2 hücresinden başlayarak öğeleri alt alta yazın; form bir sonraki açılışta bu listeyi yükler.

Kodlar tek öğe seçimine göre hazırlanmıştır; ListBox'lardaki seçim türü tek öğe olarak kullanıldığında en düzgün sonucu verir.