Error al correr una macro que cambia el color de la celda

tengo una macro que pone el color de fondo de acuerdo al valor que hay en la celda el problema es que no reconoce el cero y para la macro al encontrar un cero en la columna.

Sub ProcesoC1()
Z = 3
C = 3
Do While Cells(Z, C) <> Empty
Contenido = Cells(Z, C)
Select Case Contenido
Case "1"
Cells(Z, C).Interior.ColorIndex = 33
Case "2"
Cells(Z, C).Interior.ColorIndex = 33
Case "3"
Cells(Z, C).Interior.ColorIndex = 33
Case "4"
Cells(Z, C).Interior.ColorIndex = 33
Case "5"
Cells(Z, C).Interior.ColorIndex = 33
End Select
Z = Z + 1
Loop
End Sub

gracias por su ayuda

1

1 respuesta

Respuesta
1

No entendí bien, ¿puedes explicar qué pasa cuando hay un 0?

¿O qué quieres que haga la macro cuando hay un 0?

Saludos. Dam

cuando la macro encuentra un cero en la columna para la macro y no sigue pintando las demás celdas, o si le pides que pinte la celda con valor en cero no lo realiza.

Perdón, tuve un error de sintaxis, cuando dices "para la macro" pensé que decías "a la macro", pero realmente es: "DETIENE la macro", je je.

Bueno regresando a la macro

Cambia esta línea

Do While Cells(Z, C) <> Empty

Por esta

Do While Cells(Z, C) <> ""

Prueba y me comentas

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas