Açıklama bulunan hücreyi toplama dahil etmeme

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,769
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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;
Kod:
=TTOPLA(B7:CB7)

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

Kod:
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
 

Ekli dosyalar

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
uyguladım olmadı dosyaya siz uygulayabilirmisiniz,
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,769
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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