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 de Dante Amor
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 SubEl 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
hola dan y si en la columna C hay valores en $ y al cambiar a 0 este en vez de pintar la celda donde estaba el valor y paso a ser 0 me pinte toda la fila? - jairo retorno
Hola: Tendrás que poner la macro en los eventos de la hoja, y preguntar solamente por el valor de la celda modificada, para pintar toda la fila: rows(numfila).interior.colorindex = 4, si requieres el detalle de la macro, podrías crear la pregunta con lo que necesitas, al final del título de la nueva pregunta puedes poner que va dirigida a Dante Amor. - Dante Amor