excel yardım - renge göre işlem

quote:

Orijinalden alıntı: cemcakmak

Merhaba;

Aşağıdaki macro ile yapabilirsiniz.

Kolay gelsin.

Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
'DİKKAT: Bu fonksiyon 2 parametrelidir ve önce bölgeyi seçin, sonra da hangi renkteki hücreleri sayması gerekiyorsa _
o renkte bir hücreyi işaretleyin. Örneğin A1:A100 arasındaki sarı renkteki hücreleri saymak istiyorsanız ve sarı renkli _
hücreniz ise C10 hücresi ise herhangi bir hücreye =Renkli_Hucreleri_Say(A1:A100;C10) yazın.
Dim datax As Range
Dim xcolor As Long
xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
For Each datax In bolge
If datax.Interior.ColorIndex = xcolor Then
Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
End If
Next datax
End Function