Formato numérico de TexBox
Tengo un formulario hecho con VBA, en el cual predetermino el formato numérico de un TexBox por medio del siguiente código:
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(Val(TextBox3), " #,##0.## ")
End Sub
Y luego tras un click en un CommandButton enviaba dicha información a una hoja de cálculo:
...
Sheets("Informe Final").Range("G20") = Val(UserForm1.TextBox3.Value)
...
El problema que se me plantea es que mientras el formulario me considera el formato arriba indicado " #,##0.## " como 1.250,32 (o sea, tal como quería) en la hoja de cálculo ese mismo importe es considerado como 1,250.
¿Puedo hacer algo para que formulario y hoja de cálculo me tomen el mismo formato?
Gracias una vez más
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(Val(TextBox3), " #,##0.## ")
End Sub
Y luego tras un click en un CommandButton enviaba dicha información a una hoja de cálculo:
...
Sheets("Informe Final").Range("G20") = Val(UserForm1.TextBox3.Value)
...
El problema que se me plantea es que mientras el formulario me considera el formato arriba indicado " #,##0.## " como 1.250,32 (o sea, tal como quería) en la hoja de cálculo ese mismo importe es considerado como 1,250.
¿Puedo hacer algo para que formulario y hoja de cálculo me tomen el mismo formato?
Gracias una vez más
1 respuesta
Respuesta de leone
1
Puedes sustituir Val por Cdbl para corregir ya que esta tomando el punto(.) Como el separador de miles. Ademas antes de asignar el valor dar formato a la celda.
Range("G20").Select
Selection.NumberFormat = "#,##0.00"
Sheets("Informe Final").Range("G20") = CDbl(UserForm1.TextBox3.Value)
Prueba y me avisas.
Range("G20").Select
Selection.NumberFormat = "#,##0.00"
Sheets("Informe Final").Range("G20") = CDbl(UserForm1.TextBox3.Value)
Prueba y me avisas.
