Cargar un calendar desde un command button.
Hola quisiera saber cómo puedo cargar un calendar desde un command button (que me lo muestre y yo pueda seleccionar una fecha), yo estaba ensayando lo siguiente pero no me funciona.
Private Sub CommandButton1_Click()
Load Calendar1
Calendar1.Show
End Sub
Me pueden decir qué hago mal.
Muchas gracias.
Private Sub CommandButton1_Click()
Load Calendar1
Calendar1.Show
End Sub
Me pueden decir qué hago mal.
Muchas gracias.
1 Respuesta
Respuesta de Abraham Valencia
1
El command button es el que está dentro del userform y lo que quiero es que al dar clic en el botón se me active el calendario. Para no poner el calendar en el userform porque me ocupa mucho espacio.
Gracias,
Gracias,
Los "controles de calendario" son objetos ActiveX que necesitan de una interface obligada para poder usarse (una hoja, un userform).
La alternativa a lo que tu deseas es colocar tu calendario en el userform, ir a sus propiedades y en "visible" colocar "false", y en tu botón:
Private Sub CommandButton1_Click()
if calendar1.visible = False Then
Calendar1.visibile=True
Else
Calendar1.visibile=False
end if
End Sub
De ese modo, el botón lo oculta/desoculta
La alternativa a lo que tu deseas es colocar tu calendario en el userform, ir a sus propiedades y en "visible" colocar "false", y en tu botón:
Private Sub CommandButton1_Click()
if calendar1.visible = False Then
Calendar1.visibile=True
Else
Calendar1.visibile=False
end if
End Sub
De ese modo, el botón lo oculta/desoculta
