Jump to content

Colorear rango condicionado por valores repetidos o unicos de forma alternada


Recommended Posts

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

Link to post
Share on other sites

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

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy