Trigger MsgBox for Incomplete Input

[Yevette]

Hello All,

Can someone help me with VBA to trigger a msgbox if the user inputs info into A1, but fails to input into B1:D1 prior to moving to the next row to input data (or doing anything else on the worksheet). I'd like the message to say "INPUT ERROR - MUST COMPLETE SHADED CELLS", or something to that effect. I've done something similar before, but that was to keep the user from saving the worksheet without completing the form properly.

Clear as mud? Thanks so much for your help!!!

 

[doofusboy]

Something like this should work:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 1 Then
        If Target.Column = 1 And (Len(Target.Offset(-1, 1).Value) = 0 Or Len(Target.Offset(-1, 2).Value) = 0 Or Len(Target.Offset(-1, 3).Value) = 0) Then
            MsgBox "Please complete shaded areas in row " & Target.Row - 1 & " before continuing.", vbCritical, "Incomplete Entry"
            Application.EnableEvents = False
            Target.Value = ""
            Application.EnableEvents = True
        End If
    End If
    
End Sub

 

[Yevette]

Hi and thank you for your response. I tried the code but it didn't work. I don't think I accurately explained what I am trying to do (first of all because I used the wrong row numbers). So let me try again: If a selection is made from the drop down list in B122, then cells C122:F122 highlight to yellow (conditional formatting) to prompt the user to fill in required information. I would like to display an error message to stop the user from progressing to the next row (B123) until he fills out C122:F122 (and there are no yellow highlighted cells in the row), and so on through row B126. Also, the spreadsheet cannot be saved if there are yellow highlighted cells or an error message displays and prevents saving. The entire range is B122:F126

Clear as mud? Thanks again for your input and help!