Macro para colorear una celda en función a otra celda
Necesito una macro que me ponga una celda de color en base a lo que diga otra celda, por ejemplo en la celda C2 tengo "NUEVO", entonces en la celda D2 me ponga el color rojo, así para todas las celdas con datos en la columna C.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia "NUEVO, VIEJO, OTRO, por los valores que desees. Cambia el número 3,4,5 por el número de color.
Sub ColorCelda()
'Por.Dante Amor
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
Select Case UCase(Cells(i, "C"))
Case "NUEVO"
Cells(i, "D").Interior.ColorIndex = 3
Case "VIEJO"
Cells(i, "D").Interior.ColorIndex = 4
Case "OTRO"
Cells(i, "D").Interior.ColorIndex = 5
End Select
Next
End SubRecuerda valorar la respuesta.
