Macro para aplicar color o texto a un rango de celdas

Esta macro rellena una determinada seleccion de celdas o rangos y mediante un boton aplicarles un determinado color o un determinado texto .

Para generar una rutina para un botón, lo mejor será que utilices la grabadora de macros (menú Herramientas, Macros, Grabar)

Realizá todos los pasos (selección, formato, texto, etc). Detené la grabadora y dentro del Editor, en un módulo tendrás tu rutina. (Si luego necesitas ayuda para ajustarla consultame nuevamente)

Ahora dibujá en tu hoja un botón de comando con la barra Formulario. Se te abrirá una ventana para que selecciones tu rutina.

Como ejemplo, te tiene que quedar una rutina similar a esta:

Sub Macro5()
'
' Macro5 Macro
' Macro grabada el 14/09/2007 por Elsamatilde
'
'color de fuente rojo
Selection.Font.ColorIndex = 3
'color de relleno celeste
Selection.Interior.ColorIndex = 34
'celda A5 con texto = MUESTRA
Range("A5").Select
ActiveCell.FormulaR1C1 = "MUESTRA"
'seleccion de celda
Range("B5").Select
End Sub


Si te fijas en la primer instrucción dice: Selection.Font.ColorIndex = 3 y así con las demás.
Con eso estamos haciendo referencia a lo que tengas seleccionado al momento de presionar el botón.

Ahora solo falta definir cómo sabrá la macro qué texto colocar..... eso tendrás que decidirlo para ajustar la rutina.