Colorear fila por fin de actividad

[Nori777]

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

[Antoni]

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

 

[Nori777]

Fenomenal Antoni. Ahora veo mis errores. Muy agradecido.

Damos por solucionada la petición.

Un saludo