(macro) Pone y Quita meses del año

Páginas:

        1   2   3   4   5   6  7

A partir de la celda activa (actual) seleccionada se crean los meses del año. Si la celda activa (actual) seleccionada contiene ya contiene Enero entonces borra los meses...se puede complementar con un boton de comando que ejecute la macro...

Sub PoneQuitaMeses()
If ActiveCell.Value = "enero" Then
   ActiveCell.Value = ""
   ActiveCell.Select
   Selection.AutoFill Destination:=ActiveCell.Range("A1:A12"), Type:= _
   xlFillDefault
Else
   ActiveCell.FormulaR1C1 = "enero"
   Selection.AutoFill Destination:=ActiveCell.Range("A1:A12"), Type:= _
   xlFillDefault
End If
End Sub

La macro realiza la siguiente acción al pulsar un boton...

(macro) Pone y Quita meses del año