Texbox devuelve mal numero

[dff1403]

Hola a Todos,

Tengo un textbox con el siguiente codigo:

Private Sub TextBox39_AfterUpdate()

TextBox39 = Format(TextBox39, "$#,##0.00")

End Sub

Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox39 = Format(TextBox39, "$#,##0.00")

End Sub

Private Sub TextBox39_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

sCar = Chr(KeyAscii)

If sCar = "," Then

KeyAscii = IIf(sDecimal = ".", 46, 44)

sCar = Chr(KeyAscii)

If (InStr(TextBox39, sCar) > 0) Then

KeyAscii = 0

Exit Sub

End If

ElseIf InStr("0123456789." & Chr(8), sCar) = 0 Then

KeyAscii = 0

Exit Sub

End If

End Sub

Al momento de ingresar el dato, es conforme, por ejemplo $ 5,749.10, sin embargo al momento de retornar a este para actualizarlo el valor que lanza es $5,7491.00 no se cual pueda ser el error, por ello recurro a usdes, yo no manejo VBA, por ello que el codigo me lo paso un aigo.

Espero puedan apoyarme.

Muchas Gracias,

[dff1403]

Perdon el valor que lanza es $57,491.00

[Antoni]

Sustituye todo tu código por este:

Dim Saltar As Boolean     'Evita el rebote del evento change

Dim Separador As Integer  'Posición del separador decimal

Dim xTextBox39 As Variant 'TextBox39


Private Sub TextBox39_Change()


If Saltar = True Then

  Saltar = False

  Exit Sub

End If


xTextBox39 = TextBox39

xTextBox39 = Replace(xTextBox39, Application.ThousandsSeparator, "")

xTextBox39 = Replace(TextBox39, "$", "")

xTextBox39 = Trim(xTextBox39)


If IsNumeric(xTextBox39) = False Then

  Saltar = True

  Beep

  If Len(TextBox39) = 1 Then

      TextBox39 = ""

  Else

      TextBox39 = Left(TextBox39, Len(TextBox39) - 1)

  End If

  Exit Sub

End If


Separador = InStr(xTextBox39, Application.DecimalSeparator)

If Separador = Len(xTextBox39) Then Exit Sub


Select Case Separador

  Case 0:                        xTextBox39 = Format(xTextBox39, "$#,##0")

  Case Is = Len(xTextBox39) - 1: xTextBox39 = Format(xTextBox39, "$#,##0.0")

  Case Else:                     xTextBox39 = Format(xTextBox39, "$#,##0.00")

End Select


Saltar = True

TextBox39 = xTextBox39

Saltar = False


End Sub

[/CODE]

[dff1403]

Hola Estimado, Gracias, lo intente, pero no me deja

[Antoni]

Prueba con el adjunto.

TextBox39.xls

[dff1403]

Esta Perfecto, pero yo ingreso esto mediante un boton, luego cuando deseo abrir nuevamente este ( mediante otro userform) no me regresa la misma cantidad. tratare de subir el archivo pero pesa mucho, alguna sugerencia para poder suburlo? Un Abrazo!

[dff1403]

Hola Marco Antonio,

Pues aquí dejo mi ejemplo, en el cual en el botón de actualizar selecciono un numero de trabajo para poder modificar los datos

Que normalmente son los valores FOB y FLETE de la parte de “estimados” y “reales”, el problema es que cuando ingreso los

Datos en los casilleros FOB y Flete de “estimados” se ingresa sin problemas, ya que cuando trae los datos que ingrese previamente

Los detecta sin el $ y con el decimal en “coma” pero como se supone que ya complete esa parte no es necesario volver a ingresarla

Para que detecte la forma correcta.

Podrías apoyarme con ello?

ejemplo oc.zip

[dff1403]

Hola? Alguien por ahí? Saludos

[dff1403]

Una mano que me puedan brindar?

[dff1403]

Amigos mios, ya subí el ejemplo sinembargo aún no tengo una respuesta agradezco de antemano su apoyo. Gracias