Renkli Hücrelerde Eğersay

Katılım
8 Ocak 2021
Mesajlar
23
Excel Vers. ve Dili
Office 2016 / TR
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

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,708
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home

Ekli dosyalar

Katılım
8 Şubat 2006
Mesajlar
37
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
 
Üst