Makro Yöntemi ile En Çok Yazılmış Değeri Bulma

Dosyanın içeriği​

• Sayfa1: B2:O25 aralığında metin ve sayı karışık örnek veri tablosu bulunur. Tabloda ay adları (Ocak, Kasım), gün adları (Cuma, Çarşamba), şehirler (Ankara, İzmir, Antalya), kodlar (AAA, BBB, CCC) ve sayılar (123, 147, 148, 212, 356) yer alır.
• R sütununda "EnÇok Olanlar" başlığı altında, tabloda en çok tekrar eden değerler sıralı olarak listelenir.
• U sütununda KTF'nin tek tek kullanımı gösterilir: "En Fazla Tekrar Eden" ve "5. olarak" etiketleri yanındaki hücrelerde ilgili sıradaki değer verilir.

Kullanılan formüller​

=EĞERHATA(EnCok($B$2:$O$25;SATIRSAY($R$2:$R2));"")

=IFERROR(EnCok($B$2:$O$25,ROWS($R$2:$R2)),"")

=EnCok(B2:O25;1)

=EnCok(B2:O25,1)

Makrolar​

• EnCok(Alan, SNo): Verilen aralıktaki boş olmayan ve gizli satırda bulunmayan hücreleri tarar. Her farklı değeri bir Scripting.Dictionary ile bir kez kaydeder, tekrar sayısını CountIf ile hesaplar. Değerleri tekrar sayısına göre çoktan aza sıralar ve SNo ile istenen sıradaki değeri döndürür.
• Fonksiyon Volatile olarak işaretlidir; sayfada her hesaplama yapıldığında yeniden çalışır.
• Kod, dosya silme veya dışarıya bağlantı gibi işlemler içermez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. B2:O25 aralığındaki örnek verilerin yerine kendi verilerinizi yazın.
3. R sütunundaki formüller, tekrar sayısına göre sıralı değerleri otomatik listeler.
4. Tek bir sıradaki değer için herhangi bir hücreye EnCok fonksiyonunu aralık ve sıra numarasıyla yazın.
5. Farklı bir aralık kullanacaksanız formüllerdeki aralık adresini değiştirin.
6. Kendi çalışma dosyanızda kullanmak için Module1 kodunu o dosyaya kopyalayın ve dosyayı .xlsm olarak kaydedin.