Calendario
He colocado un calendario en un formulario pero no he podido colocarle que aparezca la fecha actual cuando aparece el calendario, aparece es la fecha en la que fue diseñado, la fecha de las propiedades, he intentado con: calendar1. Value = date pero tampoco me sale
Gracias
Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Gracias Elsa, me salio lo mismo, te coloco lo que hice:
El formulario se llama: Fecha1, en este esta Calendar1. Para llamar coloco Fecha1. show y aparece el formulario con el calendar1. A este le coloque la siguiente instrucción:
Private Sub Calendar1_Click()
Calendar1.Visible = True
Calendar1.Value = Date()
'los parentesis se desaparecen'
Unload Me
Range("F1").Value = Calendar1.Value
End Sub
Pero cuando aparece el calendar1 aparece con la fecha de las propiedades o sea fija. No se donde colocar estas instrucciones
El formulario se llama: Fecha1, en este esta Calendar1. Para llamar coloco Fecha1. show y aparece el formulario con el calendar1. A este le coloque la siguiente instrucción:
Private Sub Calendar1_Click()
Calendar1.Visible = True
Calendar1.Value = Date()
'los parentesis se desaparecen'
Unload Me
Range("F1").Value = Calendar1.Value
End Sub
Pero cuando aparece el calendar1 aparece con la fecha de las propiedades o sea fija. No se donde colocar estas instrucciones
Debes colocarla en el evento initialize del formulario Fecha1.
Private Sub UserForm_Initialize()
O también justo antes de mostrar el form, como te decía; 'en la instrucción de llamada'
Supongamos que lo llamas con un CommandButton, las instrucciones serán entonces:
Private Sub CommandButton1_Click()
UserForm1.Calendar1.Value = Date
UserForm1.Show
End Sub
(Reemplaza el nombre del Userform por el tuyo)
Private Sub UserForm_Initialize()
O también justo antes de mostrar el form, como te decía; 'en la instrucción de llamada'
Supongamos que lo llamas con un CommandButton, las instrucciones serán entonces:
Private Sub CommandButton1_Click()
UserForm1.Calendar1.Value = Date
UserForm1.Show
End Sub
(Reemplaza el nombre del Userform por el tuyo)
