Color de una celda de excel

[mak74]

Buenas !!
El código lo puedes meter en un modulo y llamarlo luego desde donde quieras...
Te mando el nuevo código:

Sub Contarceldas()

dim contador as integer
dim f as integer
dim c as integer

Sheets("Nombredelahoja").Select

contador=0
for f=filainicio to filafinal
for c = columnaincio to columnafinal
me.cells(f,c).select
if Me.Cells(f,c).Interior.Color = vbgreen then
contador= contador+1
endif
next c
next f

Ahora solo tenemos que escribir el numero de celdas en verde

me.cells(filaquequieras,columnakkieras).value= contador

End Sub


Ahora ya solo te queda llamar a Contarceldas desde donde quieras..para llamarlo solo tienes k escribir el nombre Contarceldas.