ListBox Nesnesinde Benzersiz Listeleme Yapma

Bu dosya, bir sütundaki tekrarlı kayıtların UserForm üzerindeki ListBox nesnesinde benzersiz ve alfabetik sıralı olarak nasıl listeleneceğini gösterir. Sheet1 sayfasında A1:A105 aralığında tekrar eden ülke adları bulunur; makro bu adları ayıklayarak form üzerinde sunar.

Dosyanın içeriği​

• Sheet1: A1:A105 aralığında ülke adları yer alır (Greece, Liechtenstein, Belgium, Andorra gibi). Bazı ülkeler birden fazla kez tekrarlanır.
• Module1: Listeleme işlemini yapan RemoveDuplicates makrosunu içerir.
• UserForm1: ListBox1 nesnesi, iki bilgi etiketi (Label1 ve Label2) ve OKButton düğmesi bulunur.

Sayfada formül yoktur; işlem tamamen makro ile yapılır.

Makrolar​

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

• RemoveDuplicates: A sütunundaki son dolu satıra kadar olan hücreleri okur. Değerleri bir Collection nesnesine anahtar olarak eklediği için aynı değer ikinci kez eklenemez ve tekrarlar elenir. Ardından Label1 etiketine toplam kayıt sayısını, Label2 etiketine benzersiz kayıt sayısını yazar. Benzersiz değerleri iç içe döngüyle küçükten büyüğe sıralar, ListBox1 nesnesine ekler ve formu açar.
• OKButton_Click: Formdaki düğmeye basıldığında ListBox'ta seçili değeri etkin hücreye yazar ve formu kapatır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açıp RemoveDuplicates makrosunu çalıştırın.
3. Açılan formda toplam ve benzersiz kayıt sayıları etiketlerde görüntülenir; ListBox'ta benzersiz ülke adları sıralı olarak listelenir.
4. Bir ülke adını seçip düğmeye basarsanız seçilen değer etkin hücreye yazılır.
5. Kendi verinizde kullanmak için verileri Sheet1 sayfasının A sütununa yapıştırmanız yeterlidir; makro son dolu satırı kendisi belirler.