Çözüldü Koşullu Biçimlendirme Renk Sayma Makro Kodu

Selamlar,
Benim çözümüm
** KTF ile Excel 365 (MAP ve BYROW iç içe kullanımı)
(Not : Her hücrede renk kontrolu yapıldığından biraz yavaş olabilir...)
** DÇARP içerisinde Koşullu biçimlendirmede kullanılan formülün kullanımı (Excel 365)
şeklinde ekli dosyadadır... İncelersiniz...

Sayfanın kod bölümüne aşağıdaki kodları yapıştırın. İlgili alanda değişiklik yapıldığında sayım işlemi tekrar yapılır. Öğretici olması amacıyla tüm satırlara açıklama yazmaya çalıştım.

Madem renklendirme koşullu biçimlendirme üzerinden formülle yapılmış;
sayma işlemi de bu koşul üzerinden yapılabilir demektir. KTF/makro kullanmaya gerek var mıdır?

-- SARI için =TOPLA.ÇARPIM(--($F3:$Q3>$F$9:$Q$9)) formülü,
-- kırmızı için ise =TOPLA.ÇARPIM(--($F3:$Q3<>$F$9:$Q$9)) formülü
sonuç verir.