Koşullu biçimlendirme ile renklendirilmiş hücreleri renklerine göre saymak hakkında

[loserneu]

Arkadaşlar merhaba,
Koşullu biçimlendirme ile renklendirilmiş hücreleri renklerine göre saymak istiyorum.
Bunu nasıl gerçekleştirebilirim?
Teşekkürler.

Not: Örnek ekran görüntüsünde görüleceği üzere yeşil,kırmızı ve beyaz hücreleri sayarak istediğim hücrede adetlerini göstersin

 

[İdris SERDAR]

.

Koşullu biçimlendirmede kullandığınız formül / formüller ne?

.

 

[loserneu]

İdris Bey,
internetten araştırdım ve bulduğum bu.
ama çalışmadı.
Hiçbir formül kullanmadan sizlerin önerilerine de açığım.
Konu oldukça önemli.

Function COUNTConditionColorCells(CellsRange As Range, ColorRng As Range)
Dim Bambo As Boolean
Dim dbw As String
Dim CFCELL As Range
Dim CF1 As Single
Dim CF2 As Double
Dim CF3 As Long
Bambo = False
For CF1 = 1 To CellsRange.FormatConditions.Count
If CellsRange.FormatConditions(CF1).Interior.ColorIndex = ColorRng.Interior.ColorIndex Then
Bambo = True
Exit For
End If
Next CF1
CF2 = 0
CF3 = 0
If Bambo = True Then
For Each CFCELL In CellsRange
dbw = CFCELL.FormatConditions(CF1).Formula1
dbw = Application.ConvertFormula(dbw, xlA1, xlR1C1)
dbw = Application.ConvertFormula(dbw, xlR1C1, xlA1, , ActiveCell.Resize(CellsRange.Rows.Count, CellsRange.Columns.Count).Cells(CF3 + 1))
If Evaluate(dbw) = True Then CF2 = CF2 + 1
CF3 = CF3 + 1
Next CFCELL
Else
COUNTConditionColorCells = "NO-COLOR"
Exit Function
End If
COUNTConditionColorCells = CF2
End Function

 

[İdris SERDAR]

.

Benim sorumun cevabı değil. Yani bu kırmızı, yeşil ve beyaz ne olduğunda bu renkler oluyor? Lütfen sorumu bir daha okuyun.

.

 

[sesar]

Selamlar. Örnek dosyanızı paylaşırsanız çok kısa sürede hızlı yanıt alabilirsiniz.
Ya formülünüze uygun şekilde saydırma işlemi yapılacak. Yani mesela iki değeri birbirine bölüp %50den fazla olan az olan eşit olan şeklinde parametre verdiriyorsanız ona göre aynı formülle saydırma işlemi yapılacak.

Ya da en son ve ilkel çare bir yeni sütun açacaksın 1,0,2 şeklinde renklere göre değer verip bu değerleri saydıracaksın ama otomasyon olmaz bu şekilde.

İyi Çalışmalar.