ComboBox'ta Benzersiz Sıralama

Bu dosya, bir sütundaki tekrarlı firma adlarının yinelenenlerden arındırılarak UserForm üzerindeki ComboBox'ta benzersiz ve alfabetik sıralı biçimde listelenmesini gösterir. Liste, form her açıldığında VBA kodu ile yeniden oluşturulur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• VERİ: A sütununda "FİRMALAR" başlığı altında firma adları bulunur (Z FİRMASI, Ş FİRMASI, T FİRMASI gibi). Aralık A1:B5001 olup liste tekrarlı kayıtlar içerebilir.
• SÜZ: Benzersiz hale getirilmiş ve sıralanmış firma adlarının yapıştırıldığı sayfadır (1 FİRMASI, 10 FİRMASI, 11 FİRMASI, 12 FİRMASI ...). ComboBox bu sayfadaki listeyi kullanır.

Dosyada sayfa formülü bulunmaz; işlemin tamamı makro ile yapılır.

Makrolar​

• TEST (Sayfa1): UserForm1 formunu açar. Makroyu çalıştırmak için başlangıç noktası budur.
• UserForm_Initialize (UserForm1): 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 için RowSource değerini SÜZ sayfasının A1 hücresinden A sütununun son dolu satırına kadar belirler.
• Firma_Adı_Güncelle: VERİ sayfasında A sütununa AdvancedFilter yöntemini Unique:=True ayarıyla uygular, böylece tekrarlayan kayıtlar gizlenir. Görünen değerler kopyalanır, SÜZ sayfasına yalnızca değer olarak yapıştırılır ve A sütunu artan sırada sıralanır. Son olarak VERİ sayfasında filtre kaldırılır (ShowAllData) ve kaynak veri korunur.

Kodda dosya silme ya da dış bağlantı gibi işlem yoktur; makro yalnızca bu iki sayfa üzerinde çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. VERİ sayfasının A sütununa kendi firma adlarınızı girin; tekrarlı kayıtlar olabilir.
3. Alt+F8 ile TEST makrosunu çalıştırın.
4. Açılan formdaki ComboBox'ı genişletin; firma adları tekrarsız ve sıralı listelenir.
5. Veri değiştiğinde formu yeniden açmanız yeterlidir; liste her açılışta güncellenir.