Sumar con decimales excel vba
Tengo este código donde me suma el valor que introduzco en un textbox y me lo acumula en un segundo texbox, al ingresar números menores de 10.000 me realiza la suma como la deseo, pero ya cunado introduzco números mayores a 10.000 no realiza suma deseada, un ejemplo es cuando sumo 10.000 + 10.000 me da como resultado 10.010,00. Dejo el código que utilizo para ver solución me dan, de antemano agradezco su colaboración
Private Sub CommandButton1_Click()
Dim Diferencia As Double
Pago.txtPagado.Value = Format(Val(Replace(Pago.txtPagado.Value, ",", ".")) + Val(Replace(Pago.txtAbono.Value, ",", ".")), "#,##0.00")
Diferencia = Format(Val(Replace(Pago.txtPagado.Value, ",", ".")) - Val(Replace(Pago.txtTotal.Value, ",", ".")), "#,##0.00")
Pago.txtResto.Value = Diferencia
Pago.txtAbono.Value = ""
End Sub
En este le quito el formato de numero, me realiza las sumas grandes pero no me suma la parte decimal.
Dim Diferencia As Double
Pago.txtPagado.Value = Val(Pago.txtPagado.Value) + Val(Pago.txtAbono.Value)
Diferencia = Val(Pago.txtPagado.Value - Val(Pago.txtTotal.Value))
Pago.txtResto.Value = Diferencia
Pago.txtAbono.Value = ""