Renkli hücredeki değerleri toplamak??

[DEKORrehberi.com]

Renkli hücredeki değerleri toplamak istiyorum

Örnegin kırmızı renginde olan hücredeki değerlerin toplamını almak istiyorum

Kırmızı renge sahip hücre değerleri toplamak istiyorum...

 

[Emir Hüseyin Çoban]

. . .

A sütunu için örnek kod

Sub kod_bir()
aa = [a65536].End(3).Row
bb = Empty
For i = 1 To aa
If Cells(i, "a").Interior.ColorIndex = 3 Then
bb = bb + Cells(i, "a")
Else
End If
Next i

MsgBox bb
End Sub

. . .

 

[DEKORrehberi.com]

bunun sonucunu excelde bir hücreye yazdırabilirmiyiz

"MsgBox" ile çalışamıyorum da

Teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Msgbox bb kodunu aşağıdaki ile değiştirin.

Range("b1")=bb

B1 yerine, sonucu yazdırmak istediğiniz hücre adresini yazınız.

. . .

 

[DeliBalta58]

Sub kod_bir()
aa = [a65536].End(3).Row
bb = Empty
For i = 1 To aa
If Cells(i, "a").Interior.ColorIndex = 3 Then
bb = bb + Cells(i, "a")
Else
End If
Next i
Range("B10") = bb
End Sub

Range("B10") = bb

Burada verilen B10 Toplam almak istediğiniz hücredir.
Toplamı nereye almak istiyorsanız dileğinize göre değiştiriniz.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f133/renkler-ve-renk-endeksleri-ile-i-lemler-t10476.html

http://www.excel.web.tr/f122/desen-ve-font-renkleri-sumproduct-t82441.html

.

 

[DeliBalta58]

Pardon Hüseyin hocam. Cevap yazmakla uğraşırken siz yazmışsınız bile.

 

[DEKORrehberi.com]

Saolun

Teşekkürler