Cómo puedo asignar un valor a las celdas de color negro?

Necesito modificar hojas de excel, en los que existen celdas en color negro. Quiero, que en vez de color negro, contengan el valor 1. Ya le busqué a Excel pero no lo encuentro. Encontré que se puede automáticamente con una macro. Pero no encuentro cómo hacerle. Tengo el office 2013.

1 Respuesta

Respuesta

En este ejemplo la macro cambia el color de la celda por color blanco y asignarle valor de 1, puede adaptarlo a su archivo.

Sub cambiacolorCELDA_a_valor()
    If Range("E6").Interior.Color = BLACK Then
        Range("E6").Interior.Color = RGB(255, 255, 255)
        Range("E6").Value = 1
    End If
End Sub

En este ejemplo cambia el color de la celda y el valor = 1 en un rango de celdas.

Sub cambiacolorCELDA_a_valor()
Range("E7:E12").Select
For Each CELDA In Selection
    If CELDA.Interior.Color = BLACK Then
        CELDA.Interior.Color = RGB(255, 255, 255)
        CELDA.Value = 1
    End If
Next CELDA
End Sub

¡Gracias! 

Ya pude cambiar el valor de las celdas... Es increíble como se bloquea uno de la mente. Muchísimas gracias. Con esos ejemplos ya supe como hacerle. 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas