Message box popup using if statement after sending ActiveX control entries to a different worksheet

[mb123]

I have a spreadsheet where the first sheet is a form using ActiveX controls (ComboBox, TextBox, and CommandButton). The ComboBox is a part number and the TextBox is a quantity. Once these are filled and the CommandButton is pressed, the information is sent to a master sheet with all entries (ComboBox entry sent to A, TextBox sent to B).

When the CommandButton is pressed and the information is sent to the master sheet, I would like the quantity entered to be compared to a value in D1. If the quantity entered is less than D1 I would like a message box to pop up on the first sheet saying "Quantity too low." If the quantity entered is greater than or equal to D1 then there will be no message box. The person entering the information should never see the master sheet, only the first sheet with the form.

Please let me know if anyone has a solution or if more information is needed.

Thank you!

 

[NoSparks]

Guessing you mean BEFORE sending ActiveX control entries to a different worksheet,
and guessing the D1 you refer to is on the same sheet as the Command Button,
and guessing the values are to be written to the next blank row on the Master sheet,
you could try something along the lines of this

Private Sub CommandButton1_Click()
    Dim lr As Long
    
If CLng(ActiveSheet.TextBox1.Value) < ActiveSheet.Range("d1").Value Then
    MsgBox "Quantity too low."
    Exit Sub
End If

With Sheets("Master")
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A" & lr + 1) = ActiveSheet.ComboBox1.Value
    .Range("B" & lr + 1) = CLng(ActiveSheet.TextBox1.Value)
End With

End Sub

 

[mb123]

Thanks for the reply. I see what you have there and it is good. I should have explained better and I left some information out.

In the master sheet the quantity entered actually gets calculated into earned hours. So 5 at .5 hours a unit earns 2.5 hours. I need to compare the earned hours to the expected earned hours which is a set 7.5 hours. This is located in the master sheet. So once the earned hours are calculated I need a message box if they have not met the earned hour goal.

 

[NoSparks]

Perhaps

Private Sub CommandButton1_Click()
    Dim lr As Long
    Dim earnedhrs As Single
    Dim expectedhrs As Single

With Sheets("Master")
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A" & lr + 1) = ActiveSheet.ComboBox1.Value
    .Range("B" & lr + 1) = CSng(ActiveSheet.TextBox1.Value)
    expectedhrs = .Range("D1").Value
    earnedhrs = .Range("B" & lr + 1).Value * 0.5
End With

If earnedhrs < expectedhrs Then
    MsgBox "Quantity too low."
End If

End Sub

 

[mb123]

Awesome. Thank you!