Aplicando Excel: Crea PASO a PASO este Calendario Dinámico en Excel con Macros

Aplicando Excel | Crea Paso a Paso o Descarga de manera Gratuita un Calendario Dinámico en Excel

Te explicare Paso a Paso como crear un Calendario Dinámico en Excel con Macros.

Así que iniciemos.

PASO 1

Primero debemos crear un nuevo libro de Excel y guardarlo con la opción de habilitado para macros.

Para esto vamos a la pestaña Archivo -> Guardar Como -> Ponemos el nombre que queremos para nuestro libro de Excel y donde lo deseamos guardar, para el ejemplo lo he puesto Calendario -> Seleccionamos la opción Libro de Excel habilitado para macros (*.xlsm) y clic en Guardar

Siguiente en la celda D6 para abajo escribimos los meses del año y en la celda D5 escribimos MESES , todo con Negrilla y Centrado como se muestra en la siguiente imagen:

En la celda E5 a la celda AO escribimos L M M J V S D en la celda AN AO debe quedar L M con esto estamos poniendo los 31 días que puede tener un mes y en la celda AP escribimos DÍAS

Reducimos el ancho de las columnas desde E5 a AO debe quedar de la siguiente manera:

Vamos a seleccionar el rango N2:AD3 , combinamos este año nos va quedar identificado el mismo solo como N2 , aquí escribimos el año 2023 en Negrillas y Centrado como muestra la imagen:

En la Celda C1 hasta la celda C17 escribimos de 1 a 12 para numerar cada mes del año

En la Celda A6 escribimos la siguiente formula ="01-"&C6&"-"&$N$2 y la arrastramos hasta la celda A17.

En la Celda C18 escribimos 1

Y en la Celda A18 escribimos la siguiente formula ="01-"&C18&"-"&$N$2+1

En la Celda B6 escribimos la siguiente Formula con la función DIASEM de la siguiente manera: =DIASEM(A6;2) y arrastramos hasta la celda B17

Debe quedar de la siguiente forma:

En la Celda AP6 debajo de DIAS vamos a utilizar la función DIAS para que nos cuente los días del mes, la fórmula es la siguiente: =DIAS(A7;A6) y arrastramos la formula hasta la Celda AP17

Nos debe quedar nuestro calendario hasta el momento como se muestra en la imagen:

PASO 2 (Macro)

Vamos a Crear la Macro que nos permitirá generar el Calendario de manera Dinámica, para esto lo primero es ir a nuestro Editor de Visual Basic al cual puedes acceder con el atajo de las teclas (ALT+F11) o en la pestaña de Programador dar clic en la opción de Visual Basic .

Si No tienes la Pestaña de Programador debes dar clic derecho en cualquier cinta de opciones e ir a Personalizar Cinta de Opciones. Ahí ponemos un visto a la pestaña Programador y damos clic en Aceptar .

Se nos abrirá una nueva Ventana con el Editor de Visual Basic aquí en VBAProject (Calendario.xlsm) damos clic derecho y seleccionamos Insertar y de ahí Módulo , se nos creará una nueva carpeta Módulos y dentro de la misma un Módulo 1 , dentro de Módulo 1 vamos a escribir nuestra Macro.

En Módulo 1 pegamos el siguiente código , nuestra macro que vamos a crear se llama dias

Sub dias()

'Borrar días de Calendario

Range("E6:AO17").Select

Selection.ClearContents

'Borrar Comentarios

Selection.ClearComments

'Captura año

AñoCal = InputBox("Indique el año")

Range("N2").Select

ActiveCell.Value = AñoCal

' Fila donde esta enero

MesInicial = 6

' Día de la semana que empieza el mes

Posidias = Cells(6, 2)

'Número de Días que tiene el mes

NumDias = Cells(6, 42)

'Rellena el mes de 1 a Numdias(28 , 30 , 31)

For y = 1 To 12

For X = 1 To NumDias

Cells(MesInicial + y - 1, Posidias + 3 + X) = X

Posidias = Cells(MesInicial + y, 2)

NumDias = Cells(MesInicial + y, 42)

End Sub

Debe quedar como se muestra en la imagen:

Regresamos a nuestro Excel y vamos a crear un Botón para asignar nuestra Macro. Para esto vamos a la pestaña Programador de ahí en la opción de Insertar seleccionamos la opción Botón . Creamos el botón en nuestro Excel

Al dibujar el botón se nos aparecerá la ventana Asignar macro, aquí seleccionamos dias y damos clic en Aceptar. Luego de esto damos clic en el nombre del Botón y le cambiamos el nombre del botón a CALENDARIO .

Con esto ya hemos asignado la Macro a un Botón, si damos clic en el Botón Calendario se generará automáticamente nuestro calendario según el año que ingresemos.

Luego de esto ya daremos el formato y los colores que queramos poner a nuestro Calendario. Aquí importante no ocultar columnas. Las columnas A , B , C se puede poner el Texto en color Blanco para que no se vea el texto lo mismo en la columna AP.

Ya con sus colores y formatos el Calendario les quedara similar a esta imagen: