ListBox Nesnesine Sayfadan Veri Alma

Bu dosya, bir Excel sayfasındaki verilerin UserForm üzerindeki ListBox nesnesine nasıl aktarılacağını gösteren makrolu bir örnektir. Form açılırken Sayfa1'deki adlar alfabetik olarak sıralanır ve ListBox içine eklenir. ListBox, ListView'e göre daha sade bir nesnedir; ancak Excel'in her sürümünde sorunsuz çalışması onu listeleme işlerinde pratik kılar.

Dosyanın içeriği​

• Sayfa1: A1:B31 aralığını kapsar. A1 hücresinde ADI başlığı bulunur; A2'den itibaren Ahmet, Ali, Aslı, Aycan, Bahadır, Bahattin, Bahtiyar, Canan, Danyal, Deniz, Hale, Hasan, Helin gibi adlar listelenir.
• UserForm1: İçinde ListBox1 nesnesi bulunan formdur ve veriyi bu nesnede gösterir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod UserForm1 içindeki UserForm_Initialize prosedüründedir ve form her açıldığında otomatik çalışır. Prosedür sırasıyla şunları yapar:

1. Sayfa1'de A sütunundaki son dolu hücreyi bulup seçer.
2. ListBox1.Clear ile listeyi temizler; böylece kayıtlar tekrar tekrar eklenmez.
3. A2'den son dolu satıra kadar olan A:B aralığını, A sütununa göre A'dan Z'ye sıralar.
4. A2'den son dolu satıra kadar döngü kurar ve her satırdaki adı AddItem ile ListBox'a ekler.

Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F11 ile VBA düzenleyicisini açın, Project bölümünden UserForm1 formunu çalıştırın (F5).
3. Sayfa1'deki adlar alfabetik sırayla ListBox içinde listelenir.
4. Kendi verinizi kullanmak için Sayfa1'in A sütununa A2'den başlayarak kayıtları yazın; form bir sonraki açılışta listeyi yeniler.
5. Kod son satırı A65536 hücresinden yukarı doğru aradığı için A sütununda veri arasında boş satır bırakmayın.