Textbox13 = Textbox9 * 0,090009 No arroja la cantidad correcta

[jalomiva]

Saludos a todos los foreros de esta comunidad, por sus conocimientos y ayuda que nos proporcionan a los iniciados al tema de las macros, haber si podeis aclararme que estoy haciendo mal.

Si en el textbox9 introduzco la cantidad de 2566,45  en textbox13 debería dar la cantidad de 231,00 y no es así, me devuelve la cantidad de 0,23 (adjunto macro) Gracias por adelantado

Private Sub TextBox9_Change()

With Me.TextBox9
.Value = TextBox9.Value
.Value = Format(.Value, "#,##0.00")
End With

TextBox13 = Format(Val(TextBox9.Value) * (0.090009), "#,##0.00")

End Sub

[Haplox]

@jalomiva, tienes varios errores de concepto en ese código.

• Por un lado, la función Val no convierte un texto a número y además pierdes los decimales. Busca la ayuda de esta función
• Los textbox siempre son String, así que para poder calcular con ellos, debes dimensionarlos como algún tipo de número en vba

Lo de poner el valor2 como Doble es para poder realizar operaciones con él

Private Sub TextBox9_Change()
Dim valor1 As Double, valor2 As Double

valor1 = TextBox1

TextBox2 = valor1 * (0.090009)
valor2 = CDbl(TextBox2)

End Sub

 

[jalomiva]

Hola Haplox, me funciona correctamente, muchas gracias, hoy he aprendido algo nuevo.