Saltar al contenido

Colorear fila por fin de actividad

publicado

He revisado los temas con el buscador y aunque he encontrado algunos que pudieran valerme no he sido capaz de adaptarlos a mi necesidad obteniendo por ello toda clases de errores.

Mi petición es la siguiente:

Llevo el control de uso de una serie de edificios y salas donde se realizan diferentes presentaciones y actos y necesito destacar el final o inicio de cada Orden coloreando la fila correspondiente con un color suave (gris, violeta, ..).

Agradeceré las ayudas que me podáis prestar.Control de actividades.xlsx

Un saludo

Featured Replies

publicado

Prueba esta macro:

Sub Resaltar()
Const Kolor As Long = 15917529 'Azul tenue
Application.ScreenUpdating = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   If Range("A" & x) <> Range("A" & x - 1) Then
      Range("A" & x).Resize(1, 6).Interior.Color = Kolor
   End If
Next
End Sub

 

publicado
  • Autor

Fenomenal Antoni. Ahora veo mis errores. Muy agradecido.

Damos por solucionada la petición.

Un saludo

 

Archivado

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