Color de una celda de excel

[engonga]

Hola me gustaria que en una hoja de excel.

me mirara un rango de celdas y todas las que estaran pintadas de color verde me sumara un contador

que en otra celda me pondria el total de celdas pintadas en verde.

gracias

[mak74]

Holass!!
A ver si te sirve este código..

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

contador=0
for f=filainicio to filafinal
for c = columnaincio to columnafinal
me.cells(f,c).select
if Me.Cells(7 + x, 7).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(a,b).value= contador

Salu2

[engonga]

Si pero donde lo pongo.

en un modulo, en la hoja donde, en una macro?

gracias.

[engonga]

Me sale el error

"EL uso de la palabra clave Me np es valido"

[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.

[engonga]

No funciona.

me sale el error.


"EL uso de la palabra clave Me np es valido"

Si me pudieras enviar un ejemplo a

[email protected]


gracias

[mak74]

Quitale el me a ver si te tira....

[engonga]

no funciona quitando el Me.

gracias

[mak74]

Okis...trankilo k hago una hoja excell y te la mando...
A ver si puedo hoy..