Renk say

[sward175]

Herkese Merhabalar,
Yan sayfada belirli aralıkta bulunan renkli hücreleri saymak istiyorum.
saygılarımla,
sward175

 

[sakman26]

selam,

register sayfasında, ilgili hücrelerdeki renkler, koşullu biçimlendirme ile elde ediliyor. Yani zemin rengi farklı olmasına rağmen görünümdeki renk koşula bağlı istenilen renk olmakta.

Bu durumda zemin renklerine göre sayım yapamazsınız.

Onun yerine koşullu biçimlendirmedeki kuralları formüllerde kullanarak sayım yapabilirsiniz.

Örnekte TOPLA.ÇARPIM fonksiyonu kullanılarak yapıldı. ÇOKEĞERSAY ile de yapabilirsiniz.

Eki incelersiniz.

 

[vardar07]

Aşağıdaki fonksiyonu bir module kopyalayın. Kullanmadığınız bir hücreye sayacağınız rengi ekleyiniz ve örnek olarak renk sayacağınız sütunun yada nerede sayacaksanız

=renksay([COLOR="Blue"]A2:A32[/COLOR];[COLOR="Lime"]$E$1[/COLOR])

formulünü yazın. Mavili yer sayılacak sutun, Yeşil yer kriter hücresi.

Function renksay(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
    Set sw = Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]") ' Sayım yapılacak SAYFA adı.
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data 
    If datax.Interior.ColorIndex = xcolor Then
        renksay = renksay + 1
    End If
Next datax
End Function

 

[sward175]

Herkese Günaydın,

Sayın : sakman26, Mavi renkleri getirmiyor, Bakabilir misiniz ?

Saygı ve Sevgi ile,
sward175

 

[sakman26]

selam,
evet haklısınız. Formülü eksik yazmamdan kaynaklanıyor..
Özellikle mavi ve kırmızılar için
=TOPLA.ÇARPIM((Register!.......... şeklinde yazılmış olan formülde

=TOPLA.ÇARPIM(--(Register!.... şeklinde yazılması gerekiyordu. Düzeltilmiş şekilde bir önceki mesjdaki ek güncellendi.

 

[sward175]

sayın: sakman26,

Çok teşekkür ederim,

Saygı ve Sevgi ile,

sward175

 

[sakman26]

rica ediyorum..
kolaylar gelsin..