Porque se activa solo el primer MsgBox

Tengo el siguiente código.

Los if se activan cuando le doy click a un commandbutton que tengo en un UserForm, lo que sucede es que si se cumple el segundo if que tiene msgbox, el msgbox que se muestra es el de la primera condición, ¿por qué pasa esto?

peso196733 = Worksheets("Control de Inventario").Range("H13").Value
peso191131 = Worksheets("Control de Inventario").Range("H61").Value
'Bandeja Ice Twister
If Worksheets("Inventario de Materia Prima").Range("C17") < (TextBox3.Value * peso196733) Then
     MsgBox ("No hay suficiente cantidad de resina HDPE para producir " _
         & TextBox3.Value & " unidades " & " de " & TextBox2.Value & _
             ". POR FAVOR REVISE LA CANTIDAD DE ENTRADA."), vbOKOnly + vbCritical, "RESINA HDPE INSUFICIENTE"
Exit Sub
End If
If ComboBox1.Value = "MQ196733" Then
Worksheets("Inventario de Materia Prima").Range("C17") = Val(Worksheets("Inventario de Materia Prima").Range("C17")) _
- (TextBox3.Value * peso196733)
End If
'Tornillo Nivelador
 If Worksheets("Inventario de Materia Prima").Range("C17") < (TextBox3.Value * peso191131) Then
     MsgBox "No hay suficiente cantidad de resina PVC para producir " _
             & TextBox3.Value & " unidades " & " de " & TextBox2.Value & _
                 ". POR FAVOR REVISE LA CANTIDAD DE ENTRADA.", vbOKOnly + vbCritical, "RESINA INSUFICIENTE"
Exit Sub
End If
If ComboBox1.Value = "MQ191131" Then
Worksheets("Inventario de Materia Prima").Range("C17") = Val(Worksheets("Inventario de Materia Prima").Range("C17")) _
- (TextBox3.Value * peso191131)

1 Respuesta

Respuesta
1

La verificación del tipo de producto se debe hacer al principio para decidir si se ejecuta el código de la bandeja ice twister o el del tornillo nivelador.

Select Case combobox1.Value
Case "MQ196733"
    'Bandeja Ice Twister
    peso196733 = Worksheets("Control de Inventario").Range("H13").Value
    If Worksheets("Inventario de Materia Prima").Range("C17") < (TextBox3.Value * peso196733) Then
        MsgBox ("No hay suficiente cantidad de resina HDPE para producir " _
        & TextBox3.Value & " unidades " & " de " & TextBox2.Value & _
        ". POR FAVOR REVISE LA CANTIDAD DE ENTRADA."), vbOKOnly + vbCritical, "RESINA HDPE INSUFICIENTE"
        Exit Sub
    End If
    Worksheets("Inventario de Materia Prima").Range("C17") = Val(Worksheets("Inventario de Materia Prima").Range("C17")) _
    - (TextBox3.Value * peso196733)
Case "MQ191131"
    'Tornillo Nivelador
    peso191131 = Worksheets("Control de Inventario").Range("H61").Value
    If Worksheets("Inventario de Materia Prima").Range("C17") < (TextBox3.Value * peso191131) Then
        MsgBox "No hay suficiente cantidad de resina PVC para producir " _
        & TextBox3.Value & " unidades " & " de " & TextBox2.Value & _
        ". POR FAVOR REVISE LA CANTIDAD DE ENTRADA.", vbOKOnly + vbCritical, "RESINA INSUFICIENTE"
        Exit Sub
    End If
    Worksheets("Inventario de Materia Prima").Range("C17") = Val(Worksheets("Inventario de Materia Prima").Range("C17")) _
    - (TextBox3.Value * peso191131)
End Select

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Valor de celda en MSG box

Espero que estés muy bien Como puedo hacer para visualizar el valor de una celda en un msgbox... El msgbox es de la siguiente forma MsgBox("Con el material existente en la bodega NO se puede realizar la cantidad solicitada. A la fecha el saldo de...
1 respuesta

Calculo de TextBox (vba)

Necesito de nuevo de su colaboración. Tengo dos TextBox en los que quiero que al copiar valores, en otro TextBox me calcule automáticamente y me traiga si se cumplió o no con la cantidad requerida. Ej. TextBox1 (cantidad deseada) TextBox2 (cantidad...
1 respuesta

Apoyo para una macro que debe retornar el contenido de sus celdas en TxBx…

Dante … Que ya es de las últimas, se trata de un control de pagos; estando en la Hoja1 en blanco, se llama al USERFORM1. 1°. Se selecciona la obra en un CbBx; 2°; en otro CbBx, el concepto de gasto. Con el botón “buscar” debe encontrar el concepto...
1 respuesta

Case en excel

No soy muy experto en visual basic, cree un formulario para ingresar datos, y esa información la dividí en varias etapas. En la etapa uno, ingreso unos valores y todo bien, en el caso 2 lo primero que hago es buscar un dato para poder ingresar los...
1 respuesta

Formato condicional actualizable.-

Tengo una formulario al cual me extrae de una base de datos, fechas de vencimiento al cual he logrado que en el textbox que las trae me refleje el color rojo con el cual esta en la base de datos, la base de datos esta con un formato condicional el...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta