Saltar al contenido

Resaltar última fila de un rango de datos


Antonio

Recommended Posts

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

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.