Hola:

Sub ColorearMeses()

For i = 1 To 12

Cells(1, Columns.Count).End(xlToLeft).offset(0,1).Offset(0, -i).Select

ActiveCell.Interior.ColorIndex = 4 

Next i

End Sub[/CODE]

Esta macro recorre las columnas de una fila hacia atrás (izquierda) rellenándo cada celda con el color indicado. Pero todas quedan del mismo color.

Quisiera que cada celda la rellenara alternativamente con dos colores más, por ejemplo (6 y 44). Es decir:

para i = 1, color =4

para i=2, color =6

para i = 3, color = 44

para i = 4, color [b]4 [/b](se repite el ciclo),

El archivo está como quiero que quede.

Saludos.

Color.rar

Sub ColorearMeses()

For i = 1 To 12

   Cells(1, Columns.Count).End(xlToLeft).offset(0,1).Offset(0, -i).Select

   Select Case i Mod 3

      Case 0: ActiveCell.Interior.ColorIndex = 6

      Case 1: ActiveCell.Interior.ColorIndex = 4

      Case 2: ActiveCell.Interior.ColorIndex = 44

   End Select  

Next i

End Sub[/CODE]

Es lo que quería. Muchas gracias.