Makro ile Benzersiz Değerleri Renklendirme

Bu dosya, seçilen bir hücre aralığında yalnızca bir kez geçen (benzersiz) değerleri makro yardımıyla yeşil renkle işaretler. Renklendirme, Excel'in Koşullu Biçimlendirme özelliğindeki "Benzersiz Değerler" kuralı üzerinden yapılır ve kural makro ile otomatik olarak eklenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

Dosyanın içeriği​

• Sayfa1: B1:F24 aralığında örnek veri tablosu bulunur. Makro bu veriler üzerinde denenebilir.
• Module1: Renklendirme işlemini yapan BenzersizDeğerleriRenklendirme makrosunu barındırır.

Dosyada formül, grafik, tablo veya özet tablo yoktur.

Makrolar​

BenzersizDeğerleriRenklendirme makrosu şu adımları izler:

1. O anda seçili olan aralığı çalışma alanı olarak alır.
2. Bu aralıktaki mevcut koşullu biçimlendirme kurallarını FormatConditions.Delete ile siler.
3. Aralığa AddUniqueValues ile benzersiz değer kuralı ekler; DupeUnique ayarı xlUnique olduğu için yalnızca tek kez geçen değerler işaretlenir.
4. Bu değerlerin hücre dolgusunu vbGreen (yeşil) yapar.

Makroda dosya silme veya dış bağlantı gibi işlemler yoktur. Dikkat edilmesi gereken nokta, seçili aralıktaki daha önce tanımlanmış koşullu biçimlendirme kurallarının da silinmesidir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de kendi verilerinizi girin ya da mevcut verileri kullanın; ardından renklendirmek istediğiniz aralığı seçin.
3. Alt + F8 ile makro listesini açın, BenzersizDeğerleriRenklendirme makrosunu seçip çalıştırın.
4. Seçili aralıkta yalnızca bir kez geçen değerler yeşil olarak boyanır; tekrar eden değerler boyanmaz.
5. Kodu incelemek veya değiştirmek için Alt + F11 ile VBA penceresini açın. Kural rengini değiştirmek için uv.Interior.Color satırındaki renk değeri güncellenir.