Copiar formato de celda y pegarlo en celdas selecionadas

[PEPE HDZ A]

Hola que tal,

Trataré de explicarme con lo que estoy intentando hacer. Tengo una hoja de excel donde en una fila hay un mes con sus días, ejemplo: Enero: 1 2 3 4 5 6 7 ... 31 abajo de esa fila está Febrero: 1 2 3 4 5 6 ... 30 y así consecutivamente cada mes en una fila mas abajo. Cada numero de los días del mes va en una celda. Ejemplo de hoja aquí.

Mi duda es como hacerle para que con código al seleccionar una celda o un grupo de celdas donde están los días del mes estas se pongan de un color de fondo especifico. NOTA: Excel me permite ponerle color de fondo a las celdas sin código, nada complicado, pero de esa manera primero hay que seleccionar las celdas y luego buscar el color. Yo lo que quiero es que quizás mediante un botón que al darle clic y después al seleccionar una o varias celdas estas cambien al color que yo le especifique, si selecciono otro rango de celdas que siga la misma acción (esto del color puede ir especificado cuando se le de clic al botón) y que se mantenga esta acción hasta que mediante otra acción (botón) lo desactive.

En excel el botón copiar formato cuando se le da doble clic hace mas o menos esto, copia el formato de alguna celda y lo va pegando en las celdas que se van seleccionando y puede ser en diferentes ubicaciones.

Gracias por la ayuda que me puedan dar..

[Armando Montes]

Hola, coloca esto en el modulo de la hoja, a ver si te sirve:

Public OldRng As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not OldRng Is Nothing Then

      OldRng.Interior.ColorIndex = xlNone

  End If

    Target.Interior.ColorIndex = 6

    Set OldRng = Target

End Sub[/CODE]