Calendario en cinta

[Antoni]

Hola:

Por si teníamos pocos calendarios, ahi va uno mas.

Se trata de un calendario en forma de cinta.

Pulsar y arrastrar sobre el año para mover la cinta de sitio.

Doble click en el año para volver al mes actual.

Click sobre el día para pasar la fecha a la celda activa.

Si se selecciona mas de una celda se pasara una serie de fechas consecutivas contando a partir de la fecha seleccionada.

Saludos

CintaCalendario.zip

[pegones1]

Dos comentarios Macro:

- No veo los días 31

- Desplazando el ScrollBar2 se pasa del límite de 9999 para los años en Excel.

Su mínimo debería ser 1900 y su máximo 9999, no -16000 y 16000.

[Antoni]

¡¡¡¡¡¡¡ Jolín Pedro, si que piensa vivir años. !!!!!!!

Los días 31 se veían, lo juro, debo haber tocado algo de última hora y me los he "cargao".

Voy a ver.

Saludos.

Eres peor que que la Cleo, siempre quejándote,......jajaja

[pegones1]

Lo hago para que los grandes maestros de este ajedrez que es Excel mejoréis con los años.

Sin contar que Cleo y tú ya debéis tener más de 2000.

[Antoni]

Hola:

Pues casi, casi eso de los 2000.

He modificado el envío del post #1.

Yo veo perfectamente los días 31, te envío la prueba de ello.

Prueba lo de 1900 y 9999 en el año.

Me voy a recoger la cocina que acaba de llegar la Cleo dela pirámide de su primo Keops....

Saludos.

[pegones1]

Macro, tu en tu cocina y yo en la mía seguro que salen buenas recetas.

Mejorando lo presente, adjunto la cinta modificada para que:

- la barra de desplazamiento de los años vaya de 1900 a 9999 (límites de Excel)

- la barra de desplazamiento de los meses vaya de 1 a 12 como es normal.

- con el nuevo botón Hoy se puede volver a hoy.

- el día de hoy en negrita y con fondo amarillo.

Añadiendo bloques de piedra (Pedro significa piedra) se construyeron las pirámides, ¿o no?

CintaCalendarioPW1.zip

[pegones1]

Macro, me he dado cuenta que los meses de mi cinta no ruedan para poder subir las piedras a lo alto de la pirámide con el paso de los años...

Para los que sólo puedan construir pirámides antiguas subo la versión en Excel 2003 con macros mas rodadas con el evento ScrollBar1_Change:

- la barra de desplazamiento de los meses va de 0 a 13

- cuando el mes vale 0 se pasa a 12 y se resta un año.

- cuando el mes vale 13 se pasa a 1 y se suma un año.

- en 1900 no se resta.

- en 9999 no se suma.

Pregunta para los constructores de pirámides de la Cleo:

En lugar de rellenar bloques de izquierda a derecha:

05-04-2011 06-04-2011 07-04-2011

08-04-2011 09-04-2011 10-04-2011

11-04-2011 12-04-2011 13-04-2011

¿Cómo hago para rellenar bloques de arriba a abajo?

05-04-2011 08-04-2011 11-04-2011

06-04-2011 09-04-2011 12-04-2011

07-04-2011 10-04-2011 13-04-2011

O sea de arriba a abajo antes de pasar a otra columna.

P.D.: Aún estoy buscando en esta cinta la puerta de la pirámide pero ya veo los días 31 que por ahí debe estar la pista para entrar...

CintaCalendarioPW2.zip

[Antoni]

Hola a to2:

A ver Pegones de los c......,jajaja,...te devuelvo tu calendario, donde ya podrás rellenar las fechas en columnas como hacen los chinos.

¡¡¡¡ A ver si subís mas aportes que este hombre me persigue !!!!!

Un abrazo a Pedro y demás internos de este manicomio

CintaCalendarioPW3.zip

[pegones1]

Ya nos vamos acercando Macro con tu macro para rellenar de arriba a abajo como los chinos.

Lástima que para escribir como chinos no se puedan escribir jeroglíficos de izquierda a derecha.

Pero no te preocupes, como yo debía ser uno de los escribas en mi vida anterior en el antiguo Egipto, vengo en tu ayuda para que Cleo pueda grabar fechas y palabras divinas, que es lo que significa jero-glífico.

Con un par de iconos lo he solucionado. ¿o no?

P.D.: Observa el uso de la propiedad Application.International(xlDateSeparator) para contemplar la configuración regional de la instalación.

CintaCalendarioPW4.zip

[pegones1]

Macro verás que se produce un error de desbordamiento cuando se pretenden rellenar fechas mayores que el 31-12-9999.

He modificado el adjunto para que de la vuelta a la cinta pasando del año 9999 al 1900 y no se produzca el temido error en tiempo de ejecución y nos obligue a depurar, desmoronándose la pirámide delante de nuestras narices.

A tener muy en cuenta que los meses de enero y febrero de 1900 se rellenan con un día de más debido al método erróneo de Micro$oft Excel para determinar los años bisiestos.

Method to determine whether a year is a leap year

Dile a Cleo de mis partes que no va a conseguir quedarse en cinta con este calendario en Excel durante los años de construcción de las pirámides entre 2630 y 1814 a. C., de lo que como buen escriba doy fe.

CintaCalendarioPW5.zip