Aynı renk hücreler

[spilavci]

Aynı renk hücreleri toplamak mümkünmüdür?

Ekte bir örnek var.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a0ce9fddf7]Sub topla()
eksik = [c2].Interior.ColorIndex
tamam = [g2].Interior.ColorIndex
For Each hucre In [c5:f7]
If hucre.Interior.ColorIndex = eksik Then c = c + hucre
If hucre.Interior.ColorIndex = tamam Then d = d + hucre
Next
[c2] = c
[g2] = d
End Sub
[/vb:1:a0ce9fddf7]

 

[spilavci]

Teşekkürler Sn.leventm

Selamlar

 

[euphrates55]

örnek yolluyorum

o konuları inceledim ama tam çözümüm değil,kod ile ne yapmam gerekiyor anlayamadım bi de...

 

[Kemal Demir]

Fırat Bey,

Ek'teki Örneği inceleyiniz.