Userform Listbox Benzersiz Listeleme

Bu dosya, Sayfa1 sütunundaki sayıların bir UserForm üzerindeki ListBox'ta tekrarsız (benzersiz) ve küçükten büyüğe sıralı biçimde listelenmesini sağlar. Aynı formda toplam kayıt sayısı ile benzersiz kayıt sayısı iki ayrı Label üzerinde gösterilir. Seçilen değer sayfadaki B6 hücresine aktarılır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:C105 aralığında veriler yer alır. Benzersiz listeleme A1:A105 sütunundaki sayılar üzerinden yapılır. B1:C6 aralığı ChartData adıyla tanımlıdır.
• UserForm1: İçinde ListBox1, Label1, Label2 ve OKButton bulunan form.
• Module1: Benzersizler adlı makroyu içeren modül.

Makrolar​

• Benzersizler: A1:A105 aralığındaki her hücreyi bir Collection nesnesine anahtar olarak ekler. Aynı anahtar ikinci kez eklenemediği için tekrar eden değerler dışarıda kalır. Ardından Label1 üzerine "Toplam Sayı Adeti", Label2 üzerine "Benzersiz Adeti" yazılır. Collection içindeki değerler karşılaştırmalı takas yöntemiyle küçükten büyüğe sıralanır, ListBox1 içine eklenir ve UserForm1 açılır.
• OKButton_Click: UserForm1 üzerindeki tamam düğmesine basıldığında ListBox1'de seçili değeri B6 hücresine yazar ve formu kapatır.

Kodda dosya silme ya da dış bağlantı gibi işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'in A sütununa listelenecek sayıları girin; makro A1:A105 aralığını okur.
3. Alt+F8 ile Benzersizler makrosunu çalıştırın.
4. Açılan formda toplam ve benzersiz adetleri Label alanlarından okuyun, listeden bir değer seçin.
5. Tamam düğmesine basın; seçilen değer B6 hücresine yazılır.

Farklı bir aralık kullanılacaksa makrodaki A1:A105 adresi VBA düzenleyicisinde değiştirilir.