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