Mantener formato numero en un textbox vba

Tengo un pequeño problema, tengo un userform para consultas, los datos a consultar los llamo desde una hoja de excel, el detalle es que uno de los valores de la hoja de excel son números con decimales, pero al momento de llamarlo al textbox me aparece con "coma" "1,32" ya trate de utilizar VAL, cdbl, pero no puedo hacer que me respete el punto decimal, esto es importante ya que en base a esa consulta debo de hace operaciones y hasta el momento no he podido.

1 respuesta

Respuesta
2

H o l a:

Te anexo algunas opciones para que pruebes.

Opción 1, Al momento de activar tu formulario establece el separador de decimales:

Private Sub UserForm_Activate()
    Application.UseSystemSeparators = False
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
End Sub

Y cuando termine el formulario:

Private Sub UserForm_Terminate()
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    Application.UseSystemSeparators = True
End Sub

Opción 2, Poner formato en el textbox:

Private Sub UserForm_Activate()
    TextBox1 = Format([B3], "#0.00")
End Sub

Opción 3, reemplazar la coma por un punto:

Private Sub UserForm_Activate()
    TextBox1 = [B3]
    TextBox1 = Replace(TextBox1, ",", ".")
End Sub

Realiza tus pruebas para que veas cuál te funciona.


‘
Saludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
:) 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas