otomatik Renk sayma

[bugrahandabanca]

Merhaba ;

tarihlere göre renklendirme yaptığım bir listem var , Turuncu kısımda O satırda kırmızı sekmedeki Sütunda kaç kırmızı, Yeşil Sekmede kaç yeşil olduğunun otomatik yazması için bir makro yada formül varmıdır.

 

[S.Yiğit]

İdris hocamın aşağıdaki çalışmasını inceleyebilirsiniz.

HÜCRE DESEN VE FONT RENKLERİNE GÖRE İŞLEMLER – Excel Gurusu

 

[Korhan Ayhan]

Alternatif linkler;

https://www.excel.web.tr/threads/renkli-zemin-ve-font-oezelliklerine-goere-uygulamalar.17627/

https://www.excel.web.tr/threads/ktf-renkli-huecreleri-toplama-ve-sayma.34042/

https://www.excel.web.tr/threads/renkler-ve-renk-endeksleri-ile-islemler.10476/

 

[mrwarrior]

Sub renksay()
Dim ilksatir,ilksutun,sonsatir,sonsutun,sutun,satir As Integer
sonsutun = Sheets("Sayfa1").Range("XX1").End(xlToLeft).Column '1. Satıra baktık.
sonsatir = Sheets("Sayfa1").Range("A6000").End(xlUp).Row
ilksatir = 2
ilksutun = 4
For satir = ilksatir To sonsatir
Cells(satir, 2) = 0
Cells(satir, 3) = 0
    For sutun = ilksutun To sonsutun
    If Cells(satir, sutun).Interior.ColorIndex = 3 Then Cells(satir, 2) = Cells(satir, 2) + 1
    If Cells(satir, sutun).Interior.ColorIndex = 43 Then Cells(satir, 3) = Cells(satir, 3) + 1
    Next
Next
End Sub

ile saydırdım ben.