ComboBox Sayfadan Benzersiz Kayıt Alma

Bu dosya, bir sayfadaki listede tekrar eden değerleri ayıklayarak yalnızca benzersiz kayıtları ComboBox içine yükler. Veri okuma işlemi ADO bağlantısı ve SQL sorgusuyla yapılır; sonuç döngü kullanılmadan tek seferde ComboBox'a aktarılır. Açılır listelerde aynı kaydın birden fazla görünmesini önlemek isteyen formlar ve raporlar için uygundur.

Dosyanın içeriği​

• Sayfa1: ComboBox1 ve makroyu çalıştıran CommandButton1 düğmesi bu sayfadadır.
• Sayfa3: Kaynak liste D20:D35 aralığındadır. Tekrar eden kayıtlar bu aralıkta yer alır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro Sayfa1 üzerindeki CommandButton1_Click yordamında bulunur ve düğmeye tıklandığında çalışır. Yordam şu işlemleri yapar:

1. Çalışma kitabının kendisine Microsoft.Jet.OLEDB.4.0 sağlayıcısıyla ADO bağlantısı açar. Bağlantıda başlık satırı yok sayılır (HDR=No), bu nedenle sütun adı F1 olarak kullanılır.
2. Sayfa3'te D20 hücresinden D sütununun son dolu satırına kadar olan aralığı belirler.
3. Bu aralıkta GROUP BY içeren bir SQL sorgusu çalıştırır; tekrar eden değerler tek kayda indirilir.
4. Sorgu sonucunu ComboBox1'in Column özelliğine aktarır.

Kod dosya silme veya dış bağlantı gibi bir işlem yapmaz; yalnızca bu çalışma kitabını okur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa3'te D20 hücresinden başlayarak listenizi girin. Kayıt sayısı arttığında aralık son dolu satıra göre otomatik belirlenir.
3. Sayfa1'e geçip düğmeye tıklayın.
4. ComboBox1 listesini açın; her kayıt bir kez görünür.

Jet 4.0 sağlayıcısı nedeniyle makro 32 bit Office sürümlerinde çalışır; 64 bit sürümlerde sağlayıcı hata verebilir. Dosya .xlsm biçiminde olduğundan değişiklikler aynı biçimde kaydedilmelidir.