Farklı Hücre Renklerinin Toplamını Almak

[bilal5412]

Merhaba arkadaşlar;

aşağıdaki bağlantıdaki dosyada; renk hücrelerine göre toplam değer almak istiyorum. Mesela tüm sarı hücrelerin toplamı veya kırmızı hücrelerin toplamı gibi. Formül hakkında yardımcı olabilir misiniz. Örnek çalışma ekteki gibidir.


https://drive.google.com/file/d/0B3wJKQcxKCV4Zk1kS1lUVEJQbzA/view?usp=sharing

 

[Korhan Ayhan]

Linki inceleyiniz.

http://www.excel.web.tr/f133/ktf-renkli-hucreleri-toplama-ve-sayma-t34042.html

 

[bilal5412]

Merhaba, alternatif olarak eger su araliktaki hucreler sari ise topla gibi bir formul ariyorum... Sanirim yok degil mi

 

[Korhan Ayhan]

Yerleşik fonksiyon bulunmuyor. Bu işlemi verdiğim linkteki gibi makro ile yapmanız gerekiyor.

ETOPLA gibi çalışan bir örnek kodlama aşağıdadır.

Kullanım şekli;

=RETOPLA(Renk_Alanı, Renk_Kodu, Toplam_Aralığı)

SARI = 6 (Renk kodu)
KIRMIZI = 3 (Renk kodu)

Function RETOPLA(Renk_Alanı As Range, Renk_Kodu As Long, Toplam_Aralığı As Range)
    Dim Veri As Range, Liste As Variant, X As Long
    
    Application.Volatile True
    
    Liste = Toplam_Aralığı.Value
    X = 1
    
    For Each Veri In Renk_Alanı
        If Veri.Interior.ColorIndex = Renk_Kodu Then
            RETOPLA = RETOPLA + Liste(1, X)
        End If
        X = X + 1
    Next
End Function