ListBox ile Ekleme ve Silme

Bu dosya, iki ListBox arasında kayıt taşıma işlemini gösteren bir UserForm örneğidir. Sayfa1'deki liste formdaki sol kutuya yüklenir; seçilen kayıtlar düğmelerle sağ kutuya aktarılır ya da geri alınır.

Dosyanın içeriği​

• Sayfa1: A1:A6 aralığında tek sütunlu bir liste bulunur. İlk satır başlık olarak kabul edilir, kayıtlar A2 hücresinden başlar.
• UserForm1: İki ListBox (ListBox1 ve ListBox2) ile iki düğme (CommandButton1 ve CommandButton2) içerir.
• ThisWorkbook: Dosya açıldığında formu otomatik gösteren kod burada yer alır.

Dosyada formül, tablo, grafik veya pivot tablo bulunmaz; işlemlerin tamamı makro ile yapılır.

Makrolar​

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

• Workbook_Open: Dosya açılır açılmaz UserForm1 formunu gösterir.
• UserForm_Initialize: Form açılırken Sayfa1 sayfasının A sütununda ikinci satırdan son dolu satıra kadar olan değerleri ListBox1 içine ekler.
• CommandButton1_Click: ListBox1 içinde seçili olan kaydı ListBox2 kutusuna ekler ve ilk kutudan siler.
• CommandButton2_Click: ListBox2 içinde seçili olan kaydı ListBox1 kutusuna geri ekler ve ikinci kutudan siler.

Taşıma işlemi form üzerinde yapılır; Sayfa1 sayfasındaki veriler değişmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; form kendiliğinden görüntülenir.
2. Sol kutudaki listeden taşımak istediğiniz kaydı seçin.
3. Kaydı sağ kutuya aktarmak için CommandButton1 düğmesine tıklayın.
4. Sağ kutudan bir kaydı geri almak için kaydı seçip CommandButton2 düğmesine tıklayın.
5. Kendi listenizi kullanmak için Sayfa1 sayfasının A2 hücresinden itibaren kayıtları girin ve dosyayı yeniden açın.