Como hacer que el valor con decimales de Texbox1 es > a Texbox2 lance un MSGBOX
Tengo un formulario de ingreso de depósitos por cada cliente, pero necesito que si al ingresar una cantidad Texbox1 es mayor a Texbox2 lance un MSGBOX.
Este código si hace lo que requiero, por ejemplo si el crédito es de 19482.65 e ingreso 19490 me salta el MSGBOX, pero si se hace un deposito de 500, me vuelve a saltar el MSGBOX.
If Texbox1.Text > Texbox2.Text Then
X = MsgBox("El monto depositado es mayor al crédito… Intenta de nuevo con un monto igual o menor al crédito ", vbYesNo + vbQuestion, "AVISO")
Texbox1= ""
Texbox1.SetFocus
End IfPodrían apoyarme
1 Respuesta
Respuesta de Programar Excel
1
Fíjate si funciona esto
If cdec(textbox1) > cdec (textbox2) then Msgbox("Es mayor")
Mira estos ejemplos
Amigo, muchas gracias al parecer si funciono, solo que al querer eliminar la cantidad escrita en el texbox1 después del MSGBOX me salta este error.
Si quito la variable de que no me elimine la cantidad del texbox1 no me salta error.
Saludos.
Pon al principio
on error resume next
