Saltar al contenido

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

publicado

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

Featured Replies

publicado

@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

 

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.