DAO Yöntemi ile Benzersiz İsimleri ComboBox Listeleme

Bu dosya, bir sütundaki tekrar eden değerlerin DAO (Data Access Objects) yöntemiyle ayıklanıp bir UserForm üzerindeki ComboBox'a benzersiz ve sıralı olarak aktarılmasını gösterir. Örnekte Sheet1 sayfasındaki Şube sütunu kaynak olarak kullanılır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A1:A1216 aralığında tek sütunlu şube listesi bulunur. A1 hücresi Şube başlığıdır; altında Şişli, Sarıyer, Beykoz gibi tekrar eden şube adları yer alır. Sayfada formül yoktur; sayfadaki CommandButton1 düğmesi formu açar.
• UserForm1: Benzersiz şube adlarının listelendiği ComboBox1 ile veri adedini gösteren Label1 bulunur.
• Module1: Formu açan Emre makrosunu içerir.

Makrolar​

• CommandButton1_Click (Sheet1): Sayfadaki düğmeye tıklanınca UserForm1 açılır.
• Emre (Module1): UserForm1'i açar; Alt+F8 penceresinden de çalıştırılabilir.
• UserForm_Initialize (UserForm1): Form açılırken çalışır. ComboBox1 başlangıçta "..." metnini gösterir. Sheet1 A sütunundaki son dolu satır bulunur ve Label1 üzerinde "Veri adedi" olarak yazılır. Ardından çalışma kitabının kendisi OpenDatabase ile "Excel 8.0" türünde veri kaynağı olarak açılır. Şube sütunu için select distinct ve order by içeren bir SQL sorgusu çalıştırılır; dönen benzersiz kayıtlar ComboBox1.Column özelliğiyle listeye aktarılır. İşlem sonunda Recordset ve veritabanı bağlantısı kapatılır.

Kodda dosya silme ya da dışarıya bağlantı işlemi yoktur; yalnızca açık çalışma kitabı okunur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasındaki düğmeye tıklayın veya Alt+F8 ile Emre makrosunu çalıştırın.
3. Açılan formda Label1 toplam veri adedini gösterir; ComboBox1 listesinden tekrarsız ve alfabetik şube adlarını seçin.
4. Kendi verinizde kullanmak için sütun başlığı ve sayfa adı sorgudaki Şube ve Sheet1 ile aynı kalmalı veya kod bu adlara göre düzenlenmelidir.
5. DAO kullanıldığı için VBA düzenleyicisinde Tools > References altında Microsoft DAO kitaplığının işaretli olması gerekir.