Un solo calendario que indique la fecha en la casilla seleccionada

18/01/2007 - 10:11 por cbm | Informe spam

Buenas, ahí voy con otra duda.

Hasta ahora cuando tenia que insertar calendarios, metia un calendario
por boton con esta macro:

Private Sub Calendar2_Click()
Calendar2.Visible = False
Range("f9").Value = Calendar2.Value
End Sub

de manera que pulsandolo, se abre el calendario 2, seleeciono la fecha
y se introduce en la celda que quiero.

El problema es que me gustaria poder asignar fechas a un monton de
celdas y con tanto calendario es un follon y pesa un monton.

¿Hay alguna manera de hacer que todos los botones llamen a un solo
calendario que me introduzca la fecha en la casilla que este
seleccionada?

GRACIAS

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 cbm

18/01/2007 - 10:14 | Informe spam

Perdon, no me he explicado del todo bien con la macro y puede que le
sirva a alguien.

El boton tiene la siguiente macro:

Private Sub CommandButton2_Click()
Calendar2.Visible = True
End Sub

y el calendario esta otra:

Private Sub Calendar2_Click()
Calendar2.Visible = False
Range("f9").Value = Calendar2.Value
End Sub

GRACIAS

Responder a este mensaje

#2 cbm

19/01/2007 - 14:39 | Informe spam

solucionado con active cell
cbm ha escrito:

Perdon, no me he explicado del todo bien con la macro y puede que le
sirva a alguien.

El boton tiene la siguiente macro:

Private Sub CommandButton2_Click()
Calendar2.Visible = True
End Sub

y el calendario esta otra:

Private Sub Calendar2_Click()
Calendar2.Visible = False
Range("f9").Value = Calendar2.Value
End Sub

GRACIAS

Responder a este mensaje

#3 Feliciano

19/01/2007 - 21:17 | Informe spam

Me interesa saber como lo has solucionado con "active cell". ¿Podrias
ampliar informacion?. Gracias.

-
"cbm" escribió en el mensaje
news:

solucionado con active cell
cbm ha escrito:

Perdon, no me he explicado del todo bien con la macro y puede que le
sirva a alguien.

El boton tiene la siguiente macro:

Private Sub CommandButton2_Click()
Calendar2.Visible = True
End Sub

y el calendario esta otra:

Private Sub Calendar2_Click()
Calendar2.Visible = False
Range("f9").Value = Calendar2.Value
End Sub

GRACIAS

Responder a este mensaje

#4 cbm

22/01/2007 - 09:23 | Informe spam

Aqui va la macro, espero que te sirva

esta es la del calendario:

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

y esta la de cada botón al lado de la celda donde quiero que se
inserte la fecha:
Private Sub CommandButton3_Click()
Calendar1.Visible = True
Calendar1.Today
End Sub

Saludos

Feliciano ha escrito:

Me interesa saber como lo has solucionado con "active cell". ¿Podrias
ampliar informacion?. Gracias.

-
"cbm" escribió en el mensaje
news:
> solucionado con active cell
> cbm ha escrito:
>
>> Perdon, no me he explicado del todo bien con la macro y puede que le
>> sirva a alguien.
>>
>> El boton tiene la siguiente macro:
>>
>> Private Sub CommandButton2_Click()
>> Calendar2.Visible = True
>> End Sub
>>
>> y el calendario esta otra:
>>
>> Private Sub Calendar2_Click()
>> Calendar2.Visible = False
>> Range("f9").Value = Calendar2.Value
>> End Sub
>>
>>
>>
>> GRACIAS
>

Responder a este mensaje

#5 Feliciano

02/02/2007 - 23:09 | Informe spam

Muchas gracias.

"cbm" escribió en el mensaje
news:
Aqui va la macro, espero que te sirva

esta es la del calendario:

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

y esta la de cada botón al lado de la celda donde quiero que se
inserte la fecha:
Private Sub CommandButton3_Click()
Calendar1.Visible = True
Calendar1.Today
End Sub

Saludos

Feliciano ha escrito:

Me interesa saber como lo has solucionado con "active cell". ¿Podrias
ampliar informacion?. Gracias.

-
"cbm" escribió en el mensaje
news:
> solucionado con active cell
> cbm ha escrito:
>
>> Perdon, no me he explicado del todo bien con la macro y puede que le
>> sirva a alguien.
>>
>> El boton tiene la siguiente macro:
>>
>> Private Sub CommandButton2_Click()
>> Calendar2.Visible = True
>> End Sub
>>
>> y el calendario esta otra:
>>
>> Private Sub Calendar2_Click()
>> Calendar2.Visible = False
>> Range("f9").Value = Calendar2.Value
>> End Sub
>>
>>
>>
>> GRACIAS
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida