Hola a todos. Me gustaría que alguien me ayude con una macro que ejecute lo siguiente:

Tengo un rango de datos con varias columnas y filas y necesito que cuando cambie el valor de la primera celda del rango siguiente, la última fila del rango anterior se resalte con un color determinado (puede ser el amarillo, por ejemplo)

En mi rango de datos, ese cambio debe producirse en la columna E (NIT), es decir, que cuando el valor del NIT cambie, la fila inmediatamente anterior a la celda que cambia de valor se resalte. Para ejemplo, subo un libro compuesto de dos hojas (Datos y Así) En Datos, está el rango de de datos, y en Así, cómo debe quedar dicho rango una vez se ejecute la macro. Hice una búsqueda por el Foro, pero no encontré una respuesta que se adecúe a lo que pretendo. Estaré inmensamente agradecido a quien pueda ayudarme.

Resaltar fila.xlsx

Hola Antonio,

Mira a ver sí esto te vale.

Sub ColoreaPorNIT()
   Dim c As Range, dato As String
   Set c = Hoja1.Range("E3:E" & Range("C" & Rows.Count).End(xlUp).Row)
   dato = CStr(Trim(Hoja1.Range("E3")))
   For Each celda In c
         If Not dato = CStr(Trim(celda.Value)) Then celda.Offset(-1, -4).Resize(, 10).Interior.Color = vbYellow
         dato = CStr(Trim(celda.Value))
   Next
End Sub

 

Ikanni, muy agradecido por tu ayuda. Justamente eso es lo que necesitaba. Reitero mi agradecimiento. Podemos dar por resuelto el tema.