Validar un textbox para que sea menor o igual que otro. (vba excel)

Tengo un textbox2 validado para que, al ingresar una cantidad, me salga un aviso si es mayor que la cantidad ingresada en texbox1.

Pero esto funciona si la cantidad es hasta 9, cuando paso a 10 no me sale el aviso.

Ejemplo:

textbox1 = 3 (cantidad comprada)

Textbox2 = 1 ó 2 ó 3 ( cantidad a devolver) no lanza nada, pero si ingreso 4,5,6,7,8,9 me lanza el aviso de cantidad. Pero si inserto 10 ó más, no me sale nada.

Este es el código que tengo:

If txt_cantidad_dev.Value > txt_cantidad_compra Then
            MsgBox "La cantidad a devolver es mayor que la cantidad comprada", vbCritical, "fjpg GAMES"
            txt_cantidad_dev.Value = ""
            txt_cantidad_dev.SetFocus
    End If

Sirve para no hacer una devolucion de mas cantidad de articulos que los comprado.

¿Alguna ayuda?

1 respuesta

Respuesta
2

Convierte el texto a valor:

    If Val(txt_cantidad_dev.Value) > Val(txt_cantidad_compra.Value) Then
        MsgBox "La cantidad a devolver es mayor que la cantidad comprada", vbCritical, "fjpg GAMES"
        txt_cantidad_dev.Value = ""
        txt_cantidad_dev.SetFocus
    End If

¡Gracias!

Excelente! Funciona a la perfección!

P.D. Dante, pedí ayuda en otra pregunta, hace ya unos días. Ruego le eche un vistazo.

LIstado de compras y Actualizar stock en un command_button (vba excel)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas