Colorear rango condicionado por valores repetidos o unicos de forma alternada

[Vladimir]

Buenas noches a todos.

Otra vez en busca de ayuda acudo a este gran foro.

Bueno, no consigo colorear de forma alternada rangos de celdas. Es decir que las celdas que tengan el mismo valor se rellenen con un color y cuando el valor de la celda cambie que se rellene con otro color y así de forma alternada con 2 colores tal como está en el archivo de muestra adjunto.

Desde ya agradezco cualquier solución u orientación que me pudiesen proporcionar.

Saludos desde Bolivia.

Colorear condicionado.xlsx

[ikanni]

Hola Vladimir,

Aquí una manera de hacer lo demandas.

Sub ColoreaAlterno()
   Dim strCad As String, varVal As Long, miColor As Long, d As Range
   Set d = Hoja1.Range("A2:A" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row)
   miColor = vbYellow
   varVal = [a2].Value
   For Each celda In d
      If celda = varVal Then
         celda.Interior.Color = miColor
      Else
         varVal = celda
         miColor = IIf(miColor = vbGreen, vbYellow, vbGreen)
         celda.Interior.Color = miColor
      End If
   Next celda
End Sub
End Sub

 

[Vladimir]

Muchas gracias ikanni.

Esta perfecto.

Agradesco tu generosidad y tiempo para compartir tus conocimientos.

Quedo muy agradecido.

TEMA SOLUCIONADO.