Açıklama bulunan hücreyi toplama dahil etmeme

[mor45]

ekteki dosyamda açıklam olan hüçreyi toplam dahil etsin istemiyorum,
Yani hüçrelere yazılmış olan sayıları toplasın eğer bu hücrede acıklama var ise toplamaya dahil etmesin.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz. Fonksiyonun sağlıklı sonuç vermesi için "Gün" sütunlarındaki hücre renklerinizi "E" sütunundaki renk gibi düzenleyiniz.

Kullanım şekli;

=TTOPLA(B7:CB7)

Boş bir modüle uygulayınız.

Option Explicit
 
Function TTOPLA(Aralık As Range)
    Dim Hücre As Range, Kontrol As Variant
 
    Application.Volatile True
 
    For Each Hücre In Aralık
        Set Kontrol = Hücre.Comment
        If Kontrol Is Nothing And Hücre.Interior.ColorIndex = 37 Then
            TTOPLA = TTOPLA + Hücre.Value
        End If
    Next
End Function

 

[mor45]

uyguladım olmadı dosyaya siz uygulayabilirmisiniz,

 

[Korhan Ayhan]

Selamlar,

Uygulanmış örnek dosya önceki mesajıma eklenmiştir. İncelermisiniz.