Insertar en un Textbox una fecha de un Calendario
Hola que tal,
Quisiera que me ayuden con lo siguiente:
Quiero crear un Form1 donde hay un label un textbox y un botón
Y un Form2 donde esta el calendario
Lo que deseo es que para poner la fecha dentro del textbox primero debo hacerle click al botón que llama al calendario, elijo al fecha y se guarda en el textbox.
Aqui un ejemplo https://www.youtube.com/watch?v=kbKPaWXc3zk
1 Respuesta
Te anexo 2 opciones.
1. La primera opción: con label, textbox y botón
Este código va en un módulo
Sub abrir1() UserForm1.Show End Sub
Este código va en el form1
Private Sub CommandButton1_Click() UserForm3.Show End Sub
Este código va en el form3
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) UserForm1.TextBox1 = MonthView1 Unload Me End Sub
2. La segunda opción es con dtpicker
Este código va en un módulo
Sub abrir2() UserForm2.Show End Sub
Te anexo mi archivo para que veas el funcionamiento de las 2 opciones.
https://www.dropbox.com/s/jt3zvq5qmfcs9wq/fecha%20en%20textbox.xlsm?dl=0
Saludos. Dante Amor
Recuerda valorar la respuesta.
