Macro para contar celdas color blanco

[juanjose123456]

Hola, necesito de vuestra ayuda para crear una macro que cuente las celdas de color blanco de una columna, muchas gracias

[Visor]

Estimado Juanjose saludos

 

No se si en realidad te refieres a contar celdas vacías o sin contenido,  pues entiendo que la columna contiene celdas entre vacías y celdas con contenido, confirma por favor.

confirma por favor si te refieres específicamente al color de la celda, ejemplo: diferenciar entre amarillas, sin color, y blancas

[Antoni]

'Sin color:

for each celda in range("A1:B10")

   if celda.interior.colorindex=xlnone then contador=contador+1

next

Msgbox contador & " celdas sin color" 



'Color blanco:

for each celda in range("A1:B10")

   if celda.interior.color=vbwhite then contador=contador+1

next

Msgbox contador & " celdas de color blanco" 

 

Como no has subido un archivo, el código está sin probar. 

[juanjose123456]

Perdonar, es la falta de experiencia. Sería lo siguiente: Quiero eliminar la columna C. Sería asignar el número 1,00 a cada celda sin color desde B3 hasta B32 pero pudiendo introducir datos en esas celdas

Pronostico1.xlsx