Making a cell mandatory to fill before being able to fill in another cell with a drop-down

[thc_22]

Hi, I have the following table:

Car Name	Colour
Car_021	Red
Car_022	Grey
Car_023	Blue

Car name is a specific name. And colour is a drop down list. I'm trying to add a data validation to the colour column so that before a colour option can be selected the car name must not be empty. If they tried to fill in the colour column from the drop down list, then an error message should appear.

I've tried a formula such as isblank and selecting the drop down list cell. But it hasn't worked. I was wondering if anyone knew how to do this with data validation? Thanks.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in the drop down.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    If Target.Offset(, -1) = "" Then
        MsgBox ("Please enter the car name in cell A" & Target.Row)
        Target.ClearContents
        Range("A" & Target.Row).Select
    End If
    Application.EnableEvents = True
End Sub

 

[thc_22]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in the drop down.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    If Target.Offset(, 2) = "" Then
        MsgBox ("Please enter the car name in cell A" & Target.Row)
        Target.ClearContents
        Range("A" & Target.Row).Select
    End If
    Application.EnableEvents = True
End Sub

Hi mumps,
Thanks for adding the macro code. I'm trying to do it without VBA.

Sorry, I should have clarified earlier

 

[mumps]

I think you may need a macro to do what you want. Please note that I have modified this line of code:

If Target.Offset(, 2) = "" Then

to

If Target.Offset(, -1) = "" Then