Separador de fecha en textbox
Buenos Días: Alguien me puede ayudar en como se puede poner separadores de fecha " / / " en un textbox para poder ingresar fechas y que con un botón se inserte en una celda especifica de la hoja. Gracias
1 respuesta
Respuesta de Eduard Caballero
1
Al cambiar el valor del textbox te coloca el formato de fecha
Private Sub TextBox1_Change()
largo_entrada = Len(Me.TextBox1)
Select Case largo_entrada
Case 2
Me.TextBox1.Value = Me.TextBox1.Value & "/"
Case 5
Me.TextBox1.Value = Me.TextBox1.Value & "/"
End Select
End Sub
Al dar click en el botón del formulario te guarda el valor en la celda A2 de la hoja activa
Private Sub CommandButton1_Click()
Range("A2") = TextBox1.Value
End Sub
Private Sub TextBox1_Change()
largo_entrada = Len(Me.TextBox1)
Select Case largo_entrada
Case 2
Me.TextBox1.Value = Me.TextBox1.Value & "/"
Case 5
Me.TextBox1.Value = Me.TextBox1.Value & "/"
End Select
End Sub
Al dar click en el botón del formulario te guarda el valor en la celda A2 de la hoja activa
Private Sub CommandButton1_Click()
Range("A2") = TextBox1.Value
End Sub
Es una excelente solución, es lo que deseaba, soy novato en macros de excel pero con sus ayudas y conocimientos se hace agradable desarrollar aplicaciones, espero realizarte más consultas. Gracias.
