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

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

 

Muchas gracias ikanni.

Esta perfecto.

Agradesco tu generosidad y tiempo para compartir tus conocimientos.

Quedo muy agradecido.

TEMA SOLUCIONADO.