ComboBox'ta Benzersiz Sıralı Liste

Bu dosya, bir sütundaki isimlerin ComboBox'a aktarılırken her isimden yalnızca bir tane listelenmesini ve listenin alfabetik sıralanmasını sağlar. Çalışma sayfasındaki aynı değerler (örneğin birden fazla kez geçen "test8") ComboBox'ta tek kayıt olarak görünür.

Dosyanın içeriği​

• Sayfa1: A1:D13 aralığında kullanılır. A2:A13 hücrelerinde "test1", "test2", "test8" gibi örnek isimler yer alır; bazı isimler birden fazla kez tekrar eder.
• Data adlı tanımlı ad: Sayfa1!$A$2:$A$16 aralığını gösterir ve ComboBox'a alınacak kaynak liste olarak kullanılır.
• UserForm1: İçinde ComboBox1 ve CommandButton1 bulunan form.

Makrolar​

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

• shows (Module1): UserForm1'i açar. Formu başlatmak için çalıştırılacak makro budur.
• UserForm_Initialize: Data aralığındaki değerleri tek tek dolaşır; dizide zaten bulunan bir değeri atlar, yeni değerleri diziye ekler. Ardından diziyi sıralar ve ComboBox1 listesine yükler.
• Sirala: Diziyi küçükten büyüğe, yani alfabetik sıralayan basit bir karşılaştırma döngüsüdür.
• ComboBox1_AfterUpdate: ComboBox'a yazılan değer listede yoksa Data aralığının altına eklenir ve Data adı genişletilen aralığa göre güncellenir. Değer listede varsa işlem yapılmaz.
• CommandButton1_Click: ComboBox1'de seçilen değeri D sütunundaki son dolu hücrenin altına yazar ve formu kapatır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. A sütunundaki isim listesini kendi verilerinizle değiştirin; Data adının gösterdiği aralığın listenizi kapsadığını kontrol edin.
3. Alt+F8 ile shows makrosunu çalıştırın.
4. Açılan formda ComboBox listesinden bir isim seçin ya da yeni bir isim yazın.
5. Düğmeye tıklayın; seçilen isim D sütununa eklenir.