Bu dosya, bir UserForm üzerindeki ComboBox nesnelerinin birbirine bağlanmasını gösteren makrolu bir örnektir. İlk ComboBox'tan bir ad seçildiğinde ikinci ComboBox'ta yalnızca o ada ait soyadlar listelenir; soyad seçildiğinde ise kaydın diğer bilgileri formdaki ilgili alanlara getirilir.
Dosyanın içeriği
- Sayfa1: A1:AC49 aralığında kayıt tablosu yer alır. A sütunu ad, B sütunu soyad bilgisini taşır; C-I sütunlarındaki bilgiler formdaki diğer alanlara aktarılır. Sayfada formül bulunmaz.
- UserForm1: ComboBox1, ComboBox2, ComboBox3, ComboBox4, ComboBox5 ve TextBox1-TextBox4 nesnelerinden oluşan form.
- Module1: Dosya açıldığında formu başlatan kod.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi işlemler yoktur.- auto_open: Dosya açıldığında çalışır ve UserForm1'i ekrana getirir.
- UserForm_Initialize: Form açılırken ComboBox1'in listesini A2 hücresinden A sütunundaki son dolu satıra kadar olan adlarla doldurur.
- ComboBox1_Change: ComboBox2'yi temizler. A sütununu tarar; seçilen adla eşleşen satırların B sütunundaki soyadlarını büyük/küçük harf ayrımı yapmadan ComboBox2'ye ekler.
- ComboBox2_Change: Seçilen ad ve soyada uyan satırı bulur. Aynı satırın C, D ve E sütunlarını ComboBox3, ComboBox4 ve ComboBox5'e; F, G, H ve I sütunlarını TextBox1-TextBox4'e yazar. Kayıt bulunduğunda sesli uyarı verir. Eşleşme yoksa "Aradığınız özellikte bir kayıt bulunamadı" mesajı gösterilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin; form otomatik olarak görüntülenir.
- ComboBox1 listesinden bir ad seçin.
- ComboBox2 listesinden o ada ait soyadı seçin.
- Kaydın diğer bilgileri formdaki ComboBox ve TextBox alanlarında görüntülenir.
- Kendi verinizi kullanmak için Sayfa1'deki A ve B sütunlarına ad ve soyadı, sonraki sütunlara kayıt bilgilerini girin. Liste, A sütunundaki son dolu satıra kadar otomatik alınır.