If macro with Msg

[APPPRO]

I have the following Macro that tells the user that they have skipped a line and therefore they have skipped a order. I have 10 entries each with a PullDown menu to access the info and have attached this macro to each one. It works, but when activated it finds All the skipped lines and NOT just the one activated. How can I stop that?

Sub SkipAnFO()
Set Entry1 = Range("f11")
Set Entry2 = Range("f12")
Set Entry3 = Range("f13")
Set Entry4 = Range("f14")
Set Entry5 = Range("f15")
Set Entry6 = Range("f16")
Set Entry7 = Range("f17")
Set Entry8 = Range("f18")
Set Entry9 = Range("f19")
Set Entry10 = Range("f20")

If Entry1 < 16 And Entry2 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry2 < 16 And Entry3 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry3 < 16 And Entry4 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry4 < 16 And Entry5 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry5 < 16 And Entry6 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry6 < 16 And Entry7 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry7 < 16 And Entry8 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry8 < 16 And Entry9 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
If Entry9 < 16 And Entry10 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no."

End Sub

 

[Andrew Poulsom]

You need to use an If..Then..ElseIf construct, like this:

If Entry1 < 16 And Entry2 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry2 < 16 And Entry3 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry3 < 16 And Entry4 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry4 < 16 And Entry5 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry5 < 16 And Entry6 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry6 < 16 And Entry7 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry7 < 16 And Entry8 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry8 < 16 And Entry9 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
ElseIf Entry9 < 16 And Entry10 > 15 Then MsgBox "STOP! You've skipped a line. Skipping lines is a no no." 
End If

In your code each of your If statements is evaluated. With the If..Then..ElseIf construct execution ends after a true condition is found.

 

[APPPRO]

That does not stop it. The Msg still comes up 2 or more times.

 

[Andrew Poulsom]

Sorry I did not notice that there was no line feed after Then.

The code should look like this:

If Entry1 < 16 And Entry2 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry2 < 16 And Entry3 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry3 < 16 And Entry4 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry4 < 16 And Entry5 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry5 < 16 And Entry6 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry6 < 16 And Entry7 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry7 < 16 And Entry8 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry8 < 16 And Entry9 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
ElseIf Entry9 < 16 And Entry10 > 15 Then
    MsgBox "STOP! You've skipped a line. Skipping lines is a no no."
End If

 

[APPPRO]

Does the same thing. Only way I can get it to work is to put each If into a separate Sub and then assign each Sub to a Pulldown.

 

[Andrew Poulsom]

The message box only appeared once when I tested it.

Could you post a sample of the data in F11:F20? And what is a PullDown menu?