Colorear Rango Seleccionado con Macro

Para colorear el rango activo:

activecell.interior.color=[aqui el color deseado, puede ser expresado en
valores RGB[red,green,blue],o usar las constantes de color de Visual
Basic[VbRed,Vbcyan,Vbwhite,VbBlack,etc.] o tomado de la constante
.colorindex, en cuyo caso sería activecell.interior.colorindex=n, donde n es
el indice del color dentro de la tabla de colores.]

Para colorear una celda constante:

range(col,fila).interior.color=[aqui el color deseado, puede ser expresado
en valores RGB[red,green,blue],o usar las constantes de color de Visual
Basic[VbRed,Vbcyan,Vbwhite,VbBlack,etc.] o tomado de la constante
.colorindex, en cuyo caso sería activecell.interior.colorindex=n, donde n es
el indice del color dentro de la tabla de colores.]

Para colorear la celda activa con un color aleatorio puedes usar la
siguiente función:

Sub rand_color()
Dim red As Integer
Dim blue As Integer
Dim green As Integer
red = Application.WorksheetFunction.RandBetween(0, 255)
blue = Application.WorksheetFunction.RandBetween(0, 255)
green = Application.WorksheetFunction.RandBetween(0, 255)
ActiveCell.Interior.Color = RGB(red, green, blue)
End Sub

de como eligas los criterio con lo que seleccionar la celda depende
completamente de tí.


saludos


Tambien puedes visitar
Walter R . [zz]

wrote in message
news:
Hola a todos,
Necesito colorear mediante botones macro un rango de celdas
seleccionado. Los colores son varios y el rango es aleatorio, en
función de las necesidades del planning.

Podeis ayudarme.

Gracias anticipadas.
Xavier