Sütundaki yeşil renkli değerleri toplama

[asnck]

Herkese merhabalar,

Excel çalışma kitabımda toplam giderlerin olduğu bir sütun var.
Ödenen giderin yer aldığı hücredeki sayıyı yeşil renk ile boyuyorum, ödenmeyenleri kırmızı ile.

İstediğim şey şu: sütunun en altına bir formül yazayım o formül sayesinde sütundaki yeşil renkli sayıları toplayayım.

Bu konuda yardımcı olursanız çok makbule geçer.

Teşekkürler.

 

[Ömer]

Merhaba,

Hücreleri koşul ile değil manuel boyuyorsanız renk toplamak için makro kullanmanız gerekir Aşağıda örnek bir link ekliyorum. Dosyanıza uyarlayamazsanız örnek bir dosya ekleyip dosya içerisinde gerekli açıklamaları yapınız.

renk topla makrosu

Selamlar, elimde aşağıda yazılı şekilde bir renk toplama makrosu kullanıyorum.Bu makroyu çoklu çalışma sayfasında kullanıyorum.Ancak çalışma kitabında renkte bir değişiklik yapıp hesapla dediğimde =renkli_topla($A$1;H$8:H$31) bu formül çalışmıyor, formül üzerine gelip F2 Enter yapmak zorunda...

www.excel.web.tr

.

 

[asnck]

Üstadım ilginiz için teşekkür ederim ancak ben tam olarak çözemedim.
Örnek bir dosya ekledim size zahmet bir bakabilirseniz memnun olurum.
@Ömer

 

[Ömer]

Kodları module kopyalayın.

Function r_topla(renk As Long, alan As Range)
    Dim toplam As Double, hcr As Range
    Application.Volatile True
    For Each hcr In alan
        If hcr.Font.ColorIndex = renk Then
        toplam = toplam + hcr.Value
        End If
    Next
    r_topla = toplam
End Function

Sayfada sonucları görmek istediğiniz hücreye aşağıdaki formülü yazınız.

Kırmızı için:
=r_topla(3;B5:B10)

Yeşil için 3 yerine 12, siyah için 1 yazarsınız.

 

[asnck]

@Ömer üstat elinize, emeğinize sağlık.
Zaman ayırdığınız için çok teşekkür ederim.

 

[asnck]

@Ömer Üstadım son olarak şöyle bir husus var eğer çözümü var ise şahane olur.
Formülü uyguladıktan sonra yeşil renk ile boyalı bir metnin rengini değiştirdiğimde, formülün yazılı olduğu hücre otomatik kendini yenilemiyor.
Benim hücreyi seçip yeniden bir enter yapmam gerekiyor.
Otomatik olarak sürekli kontrol edip yenilemesinin bir yolu var mı?

 

[Ömer]

Hücrelerde renk değiştirmek hesaplamayı tetiklemez maalesef. F9 ilede hesaplama yaptırabilirsiniz. Yada kodları fonksiyon yerine buton ile çalıştırabilirsiniz. Arka planda sürekli kontrol eden bir kod yazılsa dosyanızı gereksiz yorar.

 

[asnck]

Düzenleme yaptıktan sonra F9 ile yenilemek yeterli olacaktır hocam haklısınız.
Tekrar teşekkür ederim.