Aynı Renkte Olanları Topla

[baydeniro]

Merhaba arkadaslar. Ekteki dosyada soyle bir soru var. Gerektikçe değiştirilen verilere göre Koşullu Şekillendirme ile renklendirilen veriler var. Kırmızı olan verileri RAPOR sayfasında Eğertopla veya benzeri bir fonksiyon ile toplayacak bir çözüme ihtiyacım var. Bu konuda forumda örnekler var ancak benim gereksinimime cevap vermiyor. İlgilenenlere şimdiden çok teşekkürler.

 

[ileriexcel]

Sub test()
Set s1 = Sheets("RAPOR")
For Each renk In s1.Range("d3:e50")
If renk.Interior.ColorIndex = 3 Then
hedef = s1.Range("g2")
[g2] = hedef + renk
End If
Next
End Sub

 

[Levent Menteşoğlu]

............Gerektikçe değiştirilen verilere göre Koşullu Şekillendirme ile renklendirilen veriler var. Kırmızı olan verileri RAPOR sayfasında Eğertopla veya benzeri bir fonksiyon ile toplayacak bir çözüme ihtiyacım var. ...........

Koşullu biçimlendirme ile renklendirilen hücredeki renk okunamaz, çünkü bu sadece görsel olarak yapılan bir renklendirmedir. Ancak yazdığınız koşul dikkate alınarak bir formül oluşturulabilir.

 

[baydeniro]

Sayın ileriexcel ilginize teşekkürler. Yalnız kodu nasıl uygulayacağımı çözemedim. Yardımcı olur musunuz ?