Saltar al contenido

Rellenar celdas con colores alternos


Recommended Posts

publicado

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

publicado
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]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.