Renkli Hücreleri ay ay sayma ve Toplama

[omeryılmaz]

Arkadaşlar Personel Takip Programı için Bir yıllık takvim Üzerinde Renklendirme çalışmaları yaparak G.Görev, Y.İzin, Rapor..... durumlarını takip etmek üzere bir çalışma planladım.
Ekli Çalışma Sayfasında ayrıntılı olarak anlaşılacağı üzere personelin karşısında mevcut "D;ND" hücrelerindeki Renklerin sayısını "NF;OR" sütunları arasında toplam değerlerini almak üzere yardımlarınıza ihtiyaç duymaktayım.
Şimdiden yardımlarınız ve ilginiz için şükranlarımı sunuyorum.. Saygılar

Not: Hücre sayısı nedeniyle Dosya Ofis 2007 de hazırlandı...

 

[Huseyinkis]

Ekteki linki incelerseniz belki yardımcı olabilir.


http://www.excel.web.tr/f133/ktf-renkli-hucreleri-toplama-ve-sayma-t34042.html

 

[omeryılmaz]

Renkli Hücreleri Saydırmak Toplam almak

Personelin karşısında olan hücrelerde kayıtlı renklerin ay ay sayısal Toplam değerlerini almak

"OL; OX" arasında mevcut hücrelere almak
Renk Say Modülü ile Yapmaya çalıştım, Ancak Formülü tüm hücrelere uygulayınca İşlemciyi kasıyor. Bazen yeni düzenlenen Renklerin sayımı için Modül tetiklenmiyor..

Modül:
Function renksay(renk, dizi As Range)
For i = 1 To dizi.Count
If dizi(i).Interior.ColorIndex = renk Then
say = say + 1
End If
Next
renksay = say
End Function

'-------------------------------------------
Hücrelere uygun şekilde

"OL" Sütunu = renksay(3;AI5:BJ5) ' yazıldığında kasılıyor....


Butonla C Hücresinde kayıtlı personel sayısına göre tarama yaptıramadım....veya buna benzer çözümleriniz ve
İlginiz için şimdiden şükranlarımı sunuyorum...

 

[omeryılmaz]

Personelin karşısında olan hücrelerde kayıtlı renklerin ay ay sayısal Toplam değerlerini almak

"OL; OX" arasında mevcut hücrelere almak
Renk Say Modülü ile Yapmaya çalıştım, Ancak Formülü tüm hücrelere uygulayınca İşlemciyi kasıyor. Bazen yeni düzenlenen Renklerin sayımı için Modül tetiklenmiyor..

Modül:
Function renksay(renk, dizi As Range)
For i = 1 To dizi.Count
If dizi(i).Interior.ColorIndex = renk Then
say = say + 1
End If
Next
renksay = say
End Function

'-------------------------------------------
Hücrelere uygun şekilde

"OL" Sütunu = renksay(3;AI5:BJ5) ' yazıldığında kasılıyor....


Butonla C Hücresinde kayıtlı personel sayısına göre tarama yaptıramadım....veya buna benzer çözümleriniz ve
İlginiz için şimdiden şükranlarımı sunuyorum...