Macro para recorrer una fila
Llevo una parte de la macro. Lo que necesito es que me lea la fila A1 - hasta ultima celda con datos, y que si la celda contiene texto lo pinte de color. Tengo una parte de la macro, pero no me funciona.
Sub Columna_color() lc = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To lc If Cells(i, 1).Value = "FRUTAS" Then Cells.Interior.Color = RGB(0, 255, 0) If Cells(i, 1).Value = "VERDURAS" Then Cells.Interior.Color = RGB(0, 190, 0) Next End Sub
Respuesta de Dante Amor
1
1 respuesta más de otro experto
Respuesta de Programar Excel