Excel'de Renk Sayma Formülü Makrosu

Merhaba, Excel'de özellikle yeterlilik üzerine yaptığımız tablolarda kaç gün yeterli kaç gün yetersiz bunu koşullu biçimlendirme ile otomatik renklendiriyoruz.Ancak excelin kendi içinde renkleri saymak ile ilgili bir formül olmadığını farkettik ,kimi zamanda böyle bir bilgiye ihtiyacımız oluyor, aşağıdaki makroyu eklediğimiz zaman otomatik olarak excelimize formül fonksiyonlarının içine yerleşecek.Umarım ihtiyacı olan arkadaşların işine yarar. teşekkürler

Function RENKSAY(RenkAralığı As Range, RenkSeçin As Range) Dim rnkAralık As Range For Each rnkAralık In RenkAralığı If rnkAralık.Interior.ColorIndex = RenkSeçin.Interior.ColorIndex Then RENKSAY = RENKSAY + 1 End If Next End Function