hücre sayma

[ahmett46]

Slm Arkadaşlar
Bir sütun veya satırda renkli hücreleri sayıp(Örnek A sütununda 10 tane sarı renkli hücre var bunları sayıp a50 hücresine sonucu (10) şeklinde) yazmasını istiyorum mümkün mü?
Teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub renk_topla()
[a50].Value = 0
For Each renk In [a1:a49]
If renk.Interior.ColorIndex = 6 Then
[a50] = [a50] + 1
End If
Next
End Sub

 

[Ali]

Slm Arkadaşlar
Bir sütun veya satırda renkli hücreleri sayıp(Örnek A sütununda 10 tane sarı renkli hücre var bunları sayıp a50 hücresine sonucu (10) şeklinde) yazmasını istiyorum mümkün mü?
Teşekkürler

Forumda bununla ilgili örnekler vardır.


http://www.excel.web.tr/showthread.php?t=17627