Aynı Ay içerisindeki Renkli Hücrelerin toplamını almak

[m.ensar]

Hocalarım merhaba çok araştırdım formu ancak uygun bir çalışma bulamadım. Merhum İdris Hocamızın (ALLAH RAHMET EYLESİN MEKANI CENNET OLSUN) bir çalışmasından uyarladığım tabloyu ekliyorum. istediğim G3 ve H3 hücrelerine aldığım toplamlara B sütunundaki tarihi dikkate alarak Sadece EYLÜL ayındaki renkleri toplamak istiyorum.
Yardımcı olur musunuz?

 

[tamer42]

Hocalarım merhaba çok araştırdım formu ancak uygun bir çalışma bulamadım. Merhum İdris Hocamızın (ALLAH RAHMET EYLESİN MEKANI CENNET OLSUN) bir çalışmasından uyarladığım tabloyu ekliyorum. istediğim G3 ve H3 hücrelerine aldığım toplamlara B sütunundaki tarihi dikkate alarak Sadece EYLÜL ayındaki renkleri toplamak istiyorum.
Yardımcı olur musunuz?

dener misiniz ..

Function KBRT(ByVal aln As Range, rd As Long, m As Integer, Optional v As Variant) As Double

 
 Application.Volatile

Dim aln1 As Range 'değişken
Dim y As Long
Dim start As Date
Dim finis As Date

y = Year(Now)
start = DateSerial(y, m, 1)
finish = DateSerial(y, m + 1, 0)


    Application.Volatile
    KBRT = 0
    
    For Each aln1 In aln
        If Evaluate("yd(" & aln1.Address() & ")") = rd Then
            If aln1.Offset(, -1) >= start And aln1.Offset(, -1) <= finish Then
            
                KBRT = KBRT + 1
            End If
        End If
    Next aln1
    
End Function

 

[m.ensar]

Tamer Hocam hayırlı sabahlar emeğinize sağlık teşekkür ediyorum

 

[Necdet]

Yıllar önce böyle bir çalışmam olmuştu. İNCELEYİNİZ

 

[m.ensar]

Necdet hocam çok teşekkür ediyorum Tamer hocamın çalışması işimi görüyordu bu daha çeşitli örnekler içeriyor emeğiniz için teşekkür ederim

 

[Ali]

Bu da benim eski çalışmam

Renkli zemin ve Font Özelliklerine Göre Uygulamalar