Conditional Locking if Cells below are blank

[KCrtz]

I was able to get the coding below to working using the logic in this link below; however, when I apply this to 30 lines of data I get so many message boxes you have to force excel to close to move on. How can I consolidate this code to only show one error message?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("G13:G41")) Is Nothing Then Exit Sub
If Range("G12") = "" Then
MsgBox ("Please completed blend in order")
Range("G12").Select
End If
If Intersect(Target, Range("G14:G41")) Is Nothing Then Exit Sub
If Range("G13") = "" Then
MsgBox ("Please completed blend in order")
Range("G13").Select
End If
If Intersect(Target, Range("G15:G41")) Is Nothing Then Exit Sub
If Range("G14") = "" Then
MsgBox ("Please completed blend in order")
Range("G14").Select
End If
If Intersect(Target, Range("G16:G41")) Is Nothing Then Exit Sub
If Range("G15") = "" Then
MsgBox ("Please completed blend in order")
Range("G15").Select
End If
End Sub

Conditional Locking of Cell if an adjacent Cell is Blank

Hi, Started a new thread so as to no hijack the previous one... hope that's correct protocol. What I want to accomplish: B1 has a dropdown menu and if no selections have been made then any attempt to select A1 will result in B1 being selected (highlighted) as a reminder to the user that a...

www.mrexcel.com

 

[Kamolga]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("G13:G41")) Is Nothing Then Exit Sub
If ActiveCell.Offset(-1, 0) = "" Then
MsgBox ("Please completed blend in order")
Application.EnableEvents = False
ActiveCell.Offset(-1, 0).Select
Application.EnableEvents = True
End If
End Sub

 

[KCrtz]

That worked! Thanks so much!!

 

[Kamolga]

You are welcome, thanks for the feedback!