Yeşil renklileri topla

[mcetinkaya65]

Bir çalışma sayfasında borçlarımı takip ettiğim bir tablom var.Borçlarımı ödedikçe hücre rengini yeşil yapıyorum.Ödediğim miktarı q stununda toplamamız mümkün mü?( k l n o stunlarındaYeşille dönmüş hücreleri Q stununa toplatmamız)
Saygılarımla..

 

[Korhan Ayhan]

Makro ile yapabilirsiniz.

Forumda renge göre toplama ifadesi ile arama yapınız. Eklenti (KTF) formüllere ulaşabilirsiniz.

 

[Erdem Akdemir]

Kullanmak isterseniz,

Function rtopla(veri As Range, renk As Range)

For Each i In veri

If i.Interior.ColorIndex = renk.Interior.ColorIndex Then

rtopla = rtopla + i.Value

End If

Next

End Function

kullanımı;

=rtopla(toplamak istediğiniz hücre aralığını seçin;rengini almak istediğiniz hücreyi seçin)

 

[mcetinkaya65]

Sayın Kuvari;
İlginize teşekkür ederim.Formülü yukarıdan aşagı veya yukarı kopyalıyınca formül çalışıyor.Ama istediğimiz hücrenin rengini değiştirince çalışmıyor

 

[Korhan Ayhan]

Renk değişimler excelde hiçbir olayı tetiklemez. Bu sebeple F9 tuşuna basmalısınız.

 

[mcetinkaya65]

Çok Teşekkür ederim.

 

[termal.1]

yaptığım excel tablomda renkleri nasıl saydıra bilirim formülü yazarsanız sevinirim şimdiden teşekkürler

 

[Korhan Ayhan]

Forumda bu konular daha önce işlendi. Arama yapmanız gerekiyor.

Örnek linkler;

http://www.excel.web.tr/archive/index.php/t-9438.html
http://www.excel.web.tr/archive/index.php/t-17627.html
http://www.excel.web.tr/archive/index.php/t-34042.html
http://www.excel.web.tr/archive/index.php/t-68540.html

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu kullananilirsiniz.

Kullanımı,

=rts(işlem tipi;işlem yapılacak hücreler;rengi istenen hücre)

işlem tipi 0 toplama, 1 sayma.

Function rts(islem As Boolean, veri As Range, renk As Range)

For Each i In veri

If i.Interior.ColorIndex = renk.Interior.ColorIndex And islem = False Then
rts = rts + i.Value
End If
If i.Interior.ColorIndex = renk.Interior.ColorIndex And islem = True Then
rts = rts + 1

End If
Next

End Function