ComboBox Nesnesine Sayfadan Veri Alma

Bu dosya, bir sayfadaki ad soyad listesinin ActiveX ComboBox nesnesine iki farklı yöntemle nasıl aktarıldığını gösterir. Her iki yöntem de çalışma kitabı açıldığında otomatik olarak çalışır ve listeyi güncel haliyle yükler.

Dosyanın içeriği​

• veriler: A1:A405 aralığında ad soyad listesi bulunur. Liste kaynağı olarak kullanılan sayfadır.
• combobox: Üzerinde iki ComboBox nesnesi (ComboBox1 ve ComboBox2) yer alır. I10 hücresinde "ADI SOYADI" başlığı vardır.
• Çalışma kitabında adısoyadı adlı bir ad tanımı bulunur; veriler sayfasındaki A1:A405 aralığını gösterir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi işlem yoktur.
Çalışma kitabına ait Workbook_Open olayı, dosya her açıldığında iki bölümü sırayla çalıştırır:

1. AddItem yöntemi: ComboBox1 önce Clear ile boşaltılır. Ardından veriler sayfasında A2'den A sütunundaki son dolu satıra kadar her hücre döngüyle okunur ve AddItem ile listeye tek tek eklenir.
2. ListFillRange yöntemi: ComboBox2'nin ListFillRange özelliği önce sıfırlanır, sonra A2'den son dolu satıra kadar olan aralık adresi olarak atanır. Liste, hücrelere doğrudan bağlanır ve döngü gerekmez.

Son satır, End(xlUp) ile bulunduğundan listeye eklenen yeni kayıtlar bir sonraki açılışta kendiliğinden dahil edilir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. combobox sayfasına geçin; iki ComboBox açılışta listeyle dolmuş olarak gelir.
3. Her kutunun açılır okunu tıklayarak adları inceleyin ve iki yöntemin aynı listeyi verdiğini karşılaştırın.
4. Listeyi değiştirmek için veriler sayfasının A sütununa kayıt ekleyin veya düzenleyin, dosyayı kaydedip yeniden açın.
5. Kendi çalışmanıza uyarlamak için Geliştirici sekmesinden Visual Basic'i açın ve ThisWorkbook içindeki Workbook_Open kodunu inceleyin.

Yeni bir ComboBox eklemek için Geliştirici -> Denetimler -> Ekle yolu izlenir ve ActiveX Denetimleri bölümünden Birleşik Giriş Kutusu seçilir.