Buscar cero y poner celda en verde

Para Dante buenos días:

quiero por favor una macro que me busque todos los valores en cero en la columna C y me coloque en verde la celda siguiente de la columna D.

Gracias!!

1 respuesta

Respuesta
1

Te anexo la macro

Sub PintarCelda()
'Por.Dante Amor
    u = Range("C" & Rows.Count).End(xlUp).Row
    Range("D2:D" & u).Interior.ColorIndex = xlNone
    For i = 2 To u
        If Cells(i, "C").Value = 0 Then
            Cells(i, "D").Interior.ColorIndex = 4
        End If
    Next
End Sub

El color en Visual Basic es representado por número, si quieres otro color, cambia el número 4 por el número de color que desees. Puedes encontrar los números de color en el siguiente enlace:

http://dmcritchie.mvps.org/excel/colors.htm 

Saludos. Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas