Formato de entrada
Hola Fernando
Tengo este código que me da un formato en la entrada de un formulario, día. Mes, año, necesito que el campo se presente vació y/o con texto.
Private Sub UserForm_Initialize()
txtCodigo.Text = Format(Now(), "short date")
UltimaFila = Range("A65000").End(xlUp).Offset(1, 0).Row
End Sub
Gracias
Tengo este código que me da un formato en la entrada de un formulario, día. Mes, año, necesito que el campo se presente vació y/o con texto.
Private Sub UserForm_Initialize()
txtCodigo.Text = Format(Now(), "short date")
UltimaFila = Range("A65000").End(xlUp).Offset(1, 0).Row
End Sub
Gracias
1 Respuesta
Respuesta de fejoal
1
Si te hubiera entendido correctamente, bastará conque uses esta expresión en lugar de la que mencionas en la macro:
txtCodigo.Text = ""
(Si lo omites, también estará vacío)
Si, en cambio quieres que las barras de fecha, sigan apareciendo, utiliza esta inicialización:
Private Sub UserForm_Initialize()
TxtCodigo.Text = Format(" / / ", "short date")
TxtCodigo.SelStart = 0
End Sub
El segundo comando lleva el cursor al inicio del casillero.
Espero que sea lo que necesitabas. Pero ya sabes que puedes preguntarme de nuevo si así no fuera.
Un abrazo!
Fernando
txtCodigo.Text = ""
(Si lo omites, también estará vacío)
Si, en cambio quieres que las barras de fecha, sigan apareciendo, utiliza esta inicialización:
Private Sub UserForm_Initialize()
TxtCodigo.Text = Format(" / / ", "short date")
TxtCodigo.SelStart = 0
End Sub
El segundo comando lleva el cursor al inicio del casillero.
Espero que sea lo que necesitabas. Pero ya sabes que puedes preguntarme de nuevo si así no fuera.
Un abrazo!
Fernando
