Jump to content

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


jalomiva

Recommended Posts

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

Link to comment
Share on other sites

@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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy