DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
ama renkle sayı sayacağım sütun aynıMerhaba. Öncelikle aşağıdaki kodu boş bir modül içerisine yapıştırın.
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.Kod: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
=RENGE_GÖRE_SAY(B1:B10;A1)
Formülü kendi tablonuza göre uyarlayabilirsiniz.
Cevabınız için teşekkür ederim, işime yaradı.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.