Bu dosya, Sayfa1'deki kayıt listesini bir UserForm üzerinden sorgulamak için hazırlanmış makrolu bir örnektir. Birinci ComboBox'ta seçilen değere göre ikinci ComboBox'un listesi oluşur; iki seçim tamamlandığında eşleşen satırın diğer bilgileri form üzerindeki alanlara aktarılır.
Dosyanın içeriği
- Sayfa1: A1:I6 aralığında kayıt tablosu yer alır. Form, A2'den başlayarak A sütunundaki son dolu satıra kadar olan verileri kullanır.
- UserForm1: İki seçim ComboBox'ı, üç ComboBox ve dört TextBox içeren sorgulama formudur.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- auto_open (Module1): Dosya açıldığında otomatik çalışır ve UserForm1'i gösterir.
- UserForm_Initialize: Form açılırken ComboBox1 listesini A2'den A sütunundaki son dolu satıra kadar olan hücrelerle doldurur.
- ComboBox1_Change: ComboBox1'de seçilen değer değiştiğinde ComboBox2'yi temizler. A sütununda bu değerle eşleşen satırların B sütunundaki karşılıklarını ComboBox2'ye ekler. Karşılaştırma büyük/küçük harf ayrımı yapmaz.
- ComboBox2_Change: A ve B sütunlarında ComboBox1 ve ComboBox2 değerleriyle eşleşen satırı bulur. Aynı satırdaki C, D ve E sütunlarını ComboBox3, ComboBox4 ve ComboBox5'e; F, G, H ve I sütunlarını TextBox1 ile TextBox4 arasındaki alanlara yazar. Kayıt bulunursa uyarı sesi verilir. Bulunamazsa "Aradığınız özellikte bir kayıt bulunamadı" mesajı gösterilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin; UserForm1 otomatik olarak görüntülenir.
- ComboBox1'den birinci değeri seçin.
- ComboBox2 listesinden ikinci değeri seçin.
- Eşleşen kaydın diğer bilgileri ComboBox3, ComboBox4, ComboBox5 ve TextBox alanlarında görüntülenir.
- Kendi verinizi kullanmak için Sayfa1'deki kayıtları aynı sütun düzeninde (A:I) değiştirin; başlıklar 1. satırda, kayıtlar 2. satırdan itibaren yer almalıdır.