Control Calendario MonthView1
Publicado por sitoriu (2 intervenciones) el 25/11/2011 11:03:00
Hola !!
Necesito de vuestra ayuda en un detalle que no logro afinar.
Vereis tengo un libro de excel 2007 habilitado para macros. En el mismo tengo una hoja con una factura en la que en una celda para introducir la fecha de la factura llamo al control de calendario pero soy incapaz de mostrar la fecha Actual cuando see muestra el formulario que contiene el control.
Ya se que la propiedad value la puedo ajustar al día en cuestión pero no es plan de modificarla cada vez.
El código que tengo en la hoja es:
Llamo al procedimiento abrir_calendario almacenado en el Modulo 1:
Donde ya le paso el valor que quiero que es que el control muestre el día correspondiente a la fecha de hoy (Date)
Una vez que se muestra el formulario Calendario_formulario veo el control del calendario MonthView1 pero no se muestra la fecha actual del sistema sino la que está puesta en la propiedad Value, la cuál, no puedo dejar en blanco.
¿Como?¿Que debo poner y donde?, para que al cargarse el formulario esté por defecto la fecha actual del sistema.
Muchas gracias.
Necesito de vuestra ayuda en un detalle que no logro afinar.
Vereis tengo un libro de excel 2007 habilitado para macros. En el mismo tengo una hoja con una factura en la que en una celda para introducir la fecha de la factura llamo al control de calendario pero soy incapaz de mostrar la fecha Actual cuando see muestra el formulario que contiene el control.
Ya se que la propiedad value la puedo ajustar al día en cuestión pero no es plan de modificarla cada vez.
El código que tengo en la hoja es:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = Range("H16:I16")
If Union(Target, rngFechas).Address = rngFechas.Address Then Call abrir_calendario
End Sub
Dim rngFechas As Range
Set rngFechas = Range("H16:I16")
If Union(Target, rngFechas).Address = rngFechas.Address Then Call abrir_calendario
End Sub
Llamo al procedimiento abrir_calendario almacenado en el Modulo 1:
Sub abrir_calendario()
Calendario_formulario.Show
MonthView1 = Date
End Sub
Calendario_formulario.Show
MonthView1 = Date
End Sub
Donde ya le paso el valor que quiero que es que el control muestre el día correspondiente a la fecha de hoy (Date)
Una vez que se muestra el formulario Calendario_formulario veo el control del calendario MonthView1 pero no se muestra la fecha actual del sistema sino la que está puesta en la propiedad Value, la cuál, no puedo dejar en blanco.
¿Como?¿Que debo poner y donde?, para que al cargarse el formulario esté por defecto la fecha actual del sistema.
Muchas gracias.
Valora esta pregunta
0
