insertar fecha en celda con desplegable

Hace algún tiempo participé en una discusión similar. Creo que allí
encontrarás respuesta a tu consulta.

Busca con fecha 14/marzo/06 un post con el tema "Mostrar calendario en
Excel", y nos comentas si te sirve.

Cordialmente,


"Jbrlaura" escribió:

Hola estoy intentando averiguar como en una celda de excell se puede asignar
una fecha mediante un desplegable donde salgan los dias y meses siguientes o
anteriores. Ya sabéis hay en muchos programas y en las mismas páginas web,
como por ejemplo agencias de viajes, donde pulsas un icono y escoges la fecha
que quieres en en calendario que tiene todos los meses y esa fecha que
escoges se queda registrada.

Gracias por vuestra colaboración

David escribio:

Con gusto. Lo que no creo que puedas hacer, es seleccionar un rango de
fechas. El control calendario te permite seleccionar solamente una a la
vez.

Lo que sí podrías hacer, es asignar un calendario a una celda (digamos A1),
y otro a otra celda (digamos B1), y así podrías seleccionar el rango de
fechas que deseas.

En cuanto al resto de la consulta, no será muy difícil, aún cuando no sepas
mucho de VBA. Los controles Activex (y el calendario es uno de ellos),
tienen una propiedad "Visible", que te permite controlar si se muestran o no
en tu pantalla. Tendrías que colocar un pequeño botón a la par de la celda
donde quieres registrar la fecha, y cuando hagas clic en él, hacer que la
propiedad "visible" del calendario se active. Luego, cuando hagas clic en
una fecha del calendario, tendrías que hacer que la propiedad "Visible" se
desactive.

¿Cómo?, prueba lo siguiente:

Primero:
En la barra de herramientas "Cuadro de controles", haz clic en el botón
"Modo diseño". Sólo con este botón podrás modificar los controles Activex.

Segundo:
Haz clic derecho en tu calendario, selecciona "Propiedades", y anota el
nombre que aparece en la propiedad "Name". Supongo en lo sucesivo que es
"Calendar1".

Tercero:
Utilizando el botón "Botón de comando", dibuja un pequeño botón cercano a la
celda donde quieres registrar la fecha.

Cuarto:
Haces doble clic en el botón que acabas de dibujar. Te aparecerá la ventana
de Visual Basic con el cursor en un procedimiento generado. Modifícalo para
que diga lo siguiente:

Private Sub CommandButton1_Click()
Calendar1.Visible = True
End Sub

Aquí estás haciendo que la propiedad Visible de tu calendario se active.
Como resultado, posteriormente cuando hagas clic en el botón, eso hará que
el
calendario aparezca.

Quinto:
Haces doble clic en el calendario. Nuevamente te aparecerá la ventana de
Visual Basic y el cursor en un procedimiento generado. Modifícalo para que
diga lo siguiente:

Private Sub Calendar1_Click()
Calendar1.Visible = False
End Sub

Aquí estás haciendo que la propiedad Visible de tu calendario se desactive,
por lo que cuando selecciones una fecha, el mismo desaparecerá de la
pantalla, pero la fecha será asignada a la celda que le asociaste como te
comenté ayer.

Sexto:
En la barra de herramientas "Cuadro de controles", haces clic en el botón
"Salir del modo diseño".

PD: Olvidaba algo, y es que tienes que bajar el nivel de seguridad de tu
Excel a "Medio" para que esto te funcione en las próximas sesiones. Si no
lo
haces, las macros se desactivarán y los botones perderán su función. Lo
logras, haciendo clic en Herramientas - Macro - Seguridad...