Como poner determinado formato de fecha a un textbox

Tengo una tabla en excel 2010 e ingreso los datos a través de un formulario, lo que necesito hacer es que en los textbox donde ingreso fechas el formato sea 10-oct-14 y que este mismo formato se quede registrado en mi tabla de excel.

3 respuestas

Respuesta
3

Con lo siguiente cuando captures una fecha en el textbox1 y te salgas del textbox, lo va a poner el formato que quieres.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsDate(TextBox1) And Len(TextBox1) > 6 Then
        TextBox1 = Format(TextBox1, "dd-mmm-yy")
    End If
End Sub

Para pasar el dato del textbox1 a una celda, por ejemplo al presionar un commandbutton:

Private Sub CommandButton1_Click()
    Range("A5") = Format(TextBox1, "dd-mmm-yy")
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

¿Y qué tiene de diferente?

Respuesta
2

Te dejo un ejemplo que se ejecuta al salir del textbox. Se controla que haya datos en el control y que sean de fecha válida. A la col o celda le debes asignar el formato deseado también.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'x Elsamatilde
If TextBox1 = "" Or Not IsDate(TextBox1) Then Exit Sub
'cambia a formato pesonalizado
TextBox1 = Format(TextBox1, "dd-mmm-yy")
'envia dato a la celda
Range("H1") = CDate(TextBox1)
End Sub

Sdos

Elsa

Respuesta

Si entendí bien tu problema. Solo tienes que hacer doble click en el textbox y escribir el siguiente código

Me.(El nombre que le asignaste a tu textbox, "sin los paréntesis, obvio")=date

Solo eso y te saldrá la fecha en el cuadro del textbox.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Validar fecha vba excel

Espero que se encuentre bien. Anteriormente te había preguntado como validar las fechas en un userform en textbox y le había enviado estos códigos, y te había dado esta explicación. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: 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 & "/2008"...
2 respuestas

Formato de fecha a un textbox

Solo quería preguntarte sobre aquellas consultas que te hice acerca de los ComBox. También quisiera hacerte otra consulta, como puedo hacer que un textbox me tire este tipo de formato de fecha "dd-mmm-yy" estos intentando estos códigos: Private Sub...
1 respuesta

Validación de fecha para un textbox en VBA Excel

Mi consulta es porque tengo un textbox en el cual requiero que se ingresen fechas. Solucioné el problema de la validación de fechas mediante un Select Case y la utilización de un formato de Fecha. Lo que requería saber es cómo poder restringir el...
1 respuesta

Como validar datos repetidos en una columna por medio de un formulario con una textbox

Tengo la siguiente situación, por medio de una textbox ingreso en una columna muchos datos, de tal manera que creo bastantes registros repetidos, necesito que al ir agregando datos, no me permita registrar dos veces el mismo registro. Me ayudarían...
1 respuesta

VBA setfocus no funciona

Tengo esta sencilla validación.. Y no logro que el SetFocus me de resultado. Siempre se pasa al siguiente textbox. He probado de todo, y no hay caso. Private Sub Text_Fecha_AfterUpdate() If Not IsDate(Text_Fecha.Value) Then MsgBox ("ingrese en...
1 respuesta

Como ingresar fechas en un formulario vba

Cree un formulario vba en excel que me funciona bien si no fuera porque en varios campos debo ingresar fechas de acuerdo a como se van completando ciertas tareas, pero cuando las pega en excel no las ingresa como fechas creo que ya que con esos datos...
1 respuesta

Textbox que solo reciba números o letras

Tengo un formulario con varios textbox, sin embargo quiero que textbox1 me acepte solo texto mientras que el textbox2 solo números... Sin embargo no se como bloquear los números del teclado cuando necesito texto, o bloquear las letras del teclado si...
1 respuesta

Excel VBA cambio de formatos en los TextBox

Estoy haciendo un sencillo programa en Excel 2003 con diferentes formularios conectados entre ellos etc. Todo esta saliendo bien pero me gustaría, por problemas de estética, poner en algunos TextBox sus respectivos formatos, por ejemplo si es numero...
1 respuesta

Ingresar con lector láser códigos de barra

Consulta, si es que me puedes ayudar, tengo un formulario en donde ingresos los códigos de barra mediante un lector láser, que tiene un botón aceptar y le asigné este código que funciona, Private Sub CommandButton1_Click()...
1 respuesta