excel dolgu rengine göre sayma

[nunu446]

Merheba. Ben dolgu rengi yeşil olanları sayması için nasıl formül yazmalıyım?

 

[tacettinsal]

Merhaba koşullu biçimlendirme ile yapıyorsanız aynı şartlara göre saydırma yapabilirsiniz. Ama kendiniz renk veriyosanız ancak makro yöntemi ile olabilir.

 

[PColik]

Merhaba. Öncelikle aşağıdaki kodu boş bir modül içerisine yapıştırın.

Function RENGE_GÖRE_SAY(aralik As Range, hucre As Range)
Application.Volatile
sayi = aralik.Count
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
RENGE_GÖRE_SAY = sayisi
End Function

Daha sonra A1 hücresini yeşil renk yapın, saymak istediğiniz alanın "B1:B10" arası olduğunu farz edersek aşağıdaki formülü yine A1 hücresine yazabilirsiniz.

=RENGE_GÖRE_SAY(B1:B10;A1)

Formülü kendi tablonuza göre uyarlayabilirsiniz.

 

[nunu446]

Merhaba. Öncelikle aşağıdaki kodu boş bir modül içerisine yapıştırın.

Function RENGE_GÖRE_SAY(aralik As Range, hucre As Range)
Application.Volatile
sayi = aralik.Count
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
RENGE_GÖRE_SAY = sayisi
End Function

Daha sonra A1 hücresini yeşil renk yapın, saymak istediğiniz alanın "B1:B10" arası olduğunu farz edersek aşağıdaki formülü yine A1 hücresine yazabilirsiniz.

=RENGE_GÖRE_SAY(B1:B10;A1)

Formülü kendi tablonuza göre uyarlayabilirsiniz.

ama renkle sayı sayacağım sütun aynı

 

[nunu446]

İndir Screenshot 2021 120328

Dosyayı indir Screenshot 2021 120328

dosya.co

renk bu

 

[PColik]

Renkle sayı saymaktan kastınızı anlayamadım fakat yukarıda belirttiğim formül tam olarak belirttiğiniz aralıktaki yine sizin belirlediğiniz renklere ait olan hücreleri sayıyor örnek görseli linkte gönderiyorum.

İndir Screenshot

Dosyayı indir Screenshot

dosya.co

 

[nunu446]

Renkle sayı saymaktan kastınızı anlayamadım fakat yukarıda belirttiğim formül tam olarak belirttiğiniz aralıktaki yine sizin belirlediğiniz renklere ait olan hücreleri sayıyor örnek görseli linkte gönderiyorum.

İndir Screenshot

Dosyayı indir Screenshot

dosya.co

Cevabınız için teşekkür ederim, işime yaradı.

 

[nunu446]

İndir Screenshot 2021 124102

Dosyayı indir Screenshot 2021 124102

dosya.co

ad hatası verdi, ingilizcesi ne?

 

[PColik]

Excel'i yabancı bir dilde kullanmadığım için olası hataları öngöremiyorum, ancak aklıma gelen tek şey modüle eklediğiniz kodlarda bulunan "GÖRE" kelimesini "GORE" olarak değiştirip deneyebilirsiniz.