04/12/2003, 07:24
|
| | | Fecha de Ingreso: octubre-2003
Mensajes: 81
Antigüedad: 20 años, 7 meses Puntos: 0 | |
| 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
__________________
Salu2 |