ListBox Veri Alma ve Bulma

Bu şablon, bir sayfadaki personel kayıtlarını UserForm üzerindeki ListBox nesnesine almayı ve üç metin kutusuyla bu liste içinde arama yapmayı gösterir. Veriler ADODB bağlantısıyla sorgulanır, yazdıkça liste filtrelenir.

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

Dosyanın içeriği​

• vt: Kaynak veri sayfasıdır (A1:E3 aralığı). ListBox'a alınan sicil, ad ve soyad bilgileri burada tutulur.
• UserForm1: Üstte üç metin kutusu (sicil, ad, soyad), altında üç sütunlu bir ListBox bulunan "Personel Bilgileri" formudur.

Makrolar​

• Picture2_Click (Module1): Sayfadaki resme tıklandığında UserForm1'i açar.
• Baglanti_Yap (baglanti): Microsoft.ACE.OLEDB.12.0 sağlayıcısıyla çalışma kitabının kendisine ADODB bağlantısı kurar. Excel sürümüne göre dallanır, ancak her dalda aynı bağlantı cümlesi kullanılır. Dışarıya bağlantı yoktur, yalnızca bu dosya okunur.
• progress (baglanti): İlerleme yüzdesini Sheet8 üzerindeki D12 hücresine ve Label1 genişliğine yazar. Bu örnekte formdan çağrılmaz.
• UserForm_Activate: Form açılınca bağlantıyı kurar, vt sayfasından ID, ADI ve SOYADI alanlarını ID'ye göre sıralı çeker ve ListBox'a yükler. İlk satıra SİCİL, ADI, SOYADI başlıklarını ekler.
• Personel_Filtrele: Üç metin kutusundaki değerlere göre Recordset filtresi oluşturur (Like '%...%'). Sonuç yoksa ListBox boşaltılır.
• TextBox1_Change, TextBox2_Change, TextBox3_Change: Kutuya her yazışta Personel_Filtrele'yi çağırır.
• ListBox1_DblClick: Listede bir kayda çift tıklandığında sicil değerini aktif hücreye yazar ve bir hücre sağa geçer, ardından formu kapatır. Başlık satırı ya da boş seçimde "Listeden seçmediniz!" uyarısı verir. Aktif sayfa "hesaplama" ise ilk üç sütun değerini A1, B1 ve C1 hücrelerine yazar. Bu adda bir sayfa dosyada bulunmadığından bu dal şimdilik çalışmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfadaki resme (Picture2) tıklayarak formu açın.
3. Sicil, ad veya soyad kutularına yazarak listeyi daraltın.
4. İstediğiniz kayda çift tıklayın, sicil numarası aktif hücreye aktarılır.
5. Kendi verinizi kullanmak için vt sayfasındaki kayıtları değiştirin. Başlıklar ID, ADI ve SOYADI olmalıdır.

Not: ADODB bağlantısı için bilgisayarda Microsoft ACE OLEDB sağlayıcısının kurulu olması gerekir.