Como inserta fecha de un calendario en dos textbox
Estimados expertos tengo un problema necesito de sus ayuda. Al dar doble clic en el textbox1 aparece un calendar1 y lo mismo pasa con el textbox2, lo que necesito es pegar fechas diferentes en los textbox1 y 2.
1 respuesta
Respuesta de Elsa Matilde
1
Si los 2 controles llaman (con doble clic) al mismo Calendar debes anteponer una instrucción que guarde en una variable quien lo llamó:
Dim quien As Byte Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) quien = 1 'llamada al calendar End Sub Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) quien = 2 'llamada al calendar End Sub
Luego el calendar tendrá en su evento (click seguramente) la instrucción de evaluación:
If quien = 1 then
textbox1 = calendar.value 'colocar el nombre correcto
else
textbox2 = calendar.value
end if
