Macrocalendario 2015

[Antoni]

Hola amado pueblo:

Pues pasaba por aquí, y he pensado, vamos a subirles la nueva versión del calendario de Macro que ha quedado muy bonita.

El archivo está preparado para instalarlo como complemento.

Abrir el archivo, guardarlo con el nombre que querais como xla o xlam, Ficha del progrogramador\Complementos seleccionar y aceptar.

A partir de este momento, en cualquier libro abierto y en cualquier hoja, se mostrará el calendario si la celda seleccionada contiene una fecha o en la celda de la fila 1 de la columna de la celda seleccionada, contiene la palabra " Fecha", en mayúsculas/minúsculas o cualquier combinación de ambas, además, se resaltará la fecha en el calendario.

También se mostrará el calendario con click derecho en cualquier celda y seleccionar la línea "Calendario".

Con Esc o Intro en el formulario, el calendario se cierra sin efectuar acción alguna.

Para probarlo, abrir el adjunto, click derecho en cualquier celda y seleccionar la línea "Calendario".

Paz y amor.

New Calendario.xls

[pajuma]

excelente maestro Usted siempre innovando...

[jerry1321]

Estimado Macro Antonio verdaderamente genial la forma de desarrollar este calendario

Saludos desde Alvarado, Ver.

[ABOHORQUEZ]

Excelente aporte pero siempre que he intentado implementar este aporte me encuentro con un detalle que no logro resolver.

Trabaja con el sistema de fecha DD/MM/YYYY y mi PC esta configurado MM/DD/YYYY es decir al selecionar la fecha {12/1/2015} y la fecha que selecione en el calendario fue 01/12/2015.

Diciembre 01 2015 identifica Excel.

Enero 12 2015 selecione en el calendario.

Seria modificar este codigo para que detecte el formato de fecha de excel o de windows...

If HayClick = True Then

   ActiveCell = CDate(Botón.Caption & "/ " & _

                frm_calendario.xMes.ListIndex + 1 & "/ " & _

                frm_calendario.xAño))

End If[/CODE]

lo sulocione con:

[CODE]ActiveCell = DateSerial((frm_calendario.xAño), frm_calendario.xMes.ListIndex + 1, (Botón.Caption))[/CODE]

Saludos.

[Antoni]

[uSER=120075]@ABOHORQUEZ[/uSER], muy interesantes tus observaciones. Tomo nota para la próxima versión.

[ayan143]

A partir de este momento, en cualquier libro abierto y en cualquier hoja, se mostrará el calendario si la celda seleccionada contiene una fecha o en la celda de la fila 1 de la columna de la celda seleccionada, contiene la palabra " Fecha", en mayúsculas/minúsculas o cualquier combinación de ambas, además, se resaltará la fecha en el calendario.

[enrux]

A partir de este momento, en cualquier libro abierto y en cualquier hoja, se mostrará el calendario si la celda seleccionada contiene una fecha o en la celda de la fila 1 de la columna de la celda seleccionada, contiene la palabra " Fecha", en mayúsculas/minúsculas o cualquier combinación de ambas, además, se resaltará la fecha en el calendario.

Como asi a partir de este momento Actualizaron el Archivo?