Buenas tardes,

Resulta que tengo un Userform que su finalidad es editar la información de una hoja, dentro de este Userform hay un Text Box que extrae la fecha de la hoja, al momento de abrir el UserForm este se muestra de forma correcta, pero al guardar y sobreescribe le cambia el formato, ya intente darle formato al TextBox pero no funciona.

ElUser Form esta bloquedo, hay que dar click en editar para que de la opcion de editarlo, y depues el boton cambia de nombre a guardar.

Requiero de su apoyo.

Prueba.zip

Prueba con esto

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Dim dDate As Date

dDate = DateSerial(Year(Date), Month(Date), Day(Date))

TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")

dDate = TextBox1.Value

End Sub

[/CODE]

Gracia por responder, pero no funciona, aqui uno de los problamas que me da, es que al dar click en el boton cuando da la opcion de guardar es cuando le cambia el formato, y entonces el user form al llamar el texto y alo presenta con el formato erroneo.

Dale formato de fecha a la celda directamente cuando lo guardas no al textbox