Renkli Hücrelerde Eğersay

[ibaldu]

Arkadaşlar merhaba.
Bir tablom var içerisinde 24 kullanıcı için 24 günlük bir tablo. Bazı günlere özel renklendirme yapıyorum. Ve o renkle dolguladığım hücrelerin toplam sayısını başka bir hücrede saydırmak istiyorum. Örn: D3'ten AE3 hücresine kadar verilerim var K3,L3,M3 hücrelerini aynı renkte dolguladım. Bu dolgu yaptığım hücreleri AF3 hücresinde toplam sayısını vermesini istiyorum. Yardımınız için şimdiden teşekkürler.

 

[1Al2Ver]

Merhaba,

Sayın yurttaşın (İdris Serdar) yıllar önceki bir çalışmasıdır,

Formülleri kendinize göre düzenlersiniz,

Kolay gelsin.

İndir Hücre Rengine Göre İşlemler, KTF (yurttaş)

Dosyayı indir Hücre Rengine Göre İşlemler, KTF (yurttaş)

dosya.co

 

[sserdar]

Aşağıdaki fonk siyon programı işinize yarar diye düşünüyorum.
Renk sayma değil de bir renkteki sayıların toplamı için ise başka bir kod yazılmış.
Aşağıdaki kaynaktan faydalanabilirsiniz.
Kaynak: https://www.mshowto.org/excel-de-kullanici-tanimli-fonksiyon-olusturmak.html

KODLAR
Function RengeGoreSay(aralik As Range, hucre As Range)

Application.Volatile

sayi = aralik.Count
Stop
Dim sayisi As Integer

sayisi = 0

For i = 1 To sayi

If aralik(i).Interior.ColorIndex = hucre.Interior.ColorIndex Then

sayisi = sayisi + 1

End If

Next i

RengeGoreSay = sayisi

End Function