ComboBox Verileri Benzersiz Olarak Alma

Bu dosya, bir sütunda defalarca tekrarlanan kayıtların ComboBox nesnesine yalnızca bir kez alınmasını gösterir. ComboBox normalde bağlı olduğu alandaki tüm satırları listeler; bu örnekte firma adları önce benzersiz hale getirilir, A'dan Z'ye sıralanır ve ardından UserForm üzerindeki ComboBox'a aktarılır.

Dosyanın içeriği​

• VERİ: A sütununda "FİRMALAR" başlığı altında, aynı firma adlarının birçok kez tekrarlandığı ham liste yer alır (A1:B5002 aralığı, örneğin "Z FİRMASI", "T FİRMASI", "U FİRMASI").
• SÜZ: Benzersiz hale getirilen firma adlarının değer olarak yapıştırıldığı ve sıralandığı sayfadır ("1 FİRMASI", "10 FİRMASI", "11 FİRMASI" gibi). ComboBox bu sayfadaki listeye bağlanır.
• UserForm1: İçinde ComboBox1 bulunan kullanıcı formudur.

Dosyada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosyada zararlı bir işlem, dosya silme veya dış bağlantı yoktur.

• TEST (Sayfa1): UserForm1 formunu açar. Makro, Geliştirici sekmesinden veya Alt+F8 ile çalıştırılabilir.
• UserForm_Initialize: Form açılırken ekran güncellemesini kapatır, VERİ sayfasını seçer ve Firma_Adı_Güncelle yordamını çağırır. Ardından ComboBox1'in RowSource değerini SÜZ sayfasında A1'den A sütunundaki son dolu satıra kadar olan aralık olarak belirler.
• Firma_Adı_Güncelle: VERİ sayfasında A sütununa AdvancedFilter ile Unique seçeneğini uygular, görünen benzersiz değerleri kopyalar ve SÜZ sayfasına değer olarak yapıştırır. Yapıştırılan sütunu artan sırada sıralar, sonra VERİ sayfasında ShowAllData ile filtreyi kaldırır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile TEST makrosunu çalıştırın.
3. Açılan formda ComboBox'ı açın; her firma adı yalnızca bir kez ve sıralı olarak listelenir.
4. Kendi verinizde kullanmak için VERİ sayfasının A sütununa kayıtlarınızı yazın; liste form her açıldığında yeniden oluşturulur.