Permitir decimales en un Textbox
Hola a todos.
Tengo el siguiente problema en un Userform:
Para que me guarde los datos que introduzco en un Textbox, con los decimales separados por comas, los tengo que introducir separados por puntos. ¿Cómo puedo guardar los datos con decimales separados por comas, e introducirlos asimismo por comas?
Éste es el código que tengo
Private Sub TextBox1_Change()
Range("U69").Select
ActiveCell.Offset(1, 0) = CDbl(Val(TextBox1))
On Error Resume Next
End Sub
End Sub
Gracias
1 respuesta
Prueba a cambiar el formato del textbox de esta manera:
TextBox1.Value = Format(TextBox1, "#,##0.00")
Recuerda finalizar la consulta
Al introducir, por ejemplo, en el TextBox 24 se autoescribe 24,00 y se vuelca sólo 24. Si quiero introducir decimales con comas, no me los graba
En la celda que lo vuelca tienes que tener este formato
activecell.numberformat = "#,##0.00"
Tengo ese formato, y escribiendo normalmente en la hoja, sí puedo, pero con el TextBox sigue sin funcionar.
Gracias
En el siguiente enlace te dejo un archivo con un ejemplo sencillo para que veas como lo he hecho
http://share.cx.com/2m6xT8
No olvides finalizar la consulta
