Dropdown list activated if condition met

[emutuc]

Greetings MrExcel.com friends!

I am kindly seeking your suggestions for a conditional drop downlist if a condition met.
For example, if the condition, "Single" is met, then I would like a drop down list with the options of "1" or "2" or "3". If the "Single" condition is not met, I would like the cell to be blank.

Many many thanks again for your help

Eric

 

[hajiali]

Try adding this to the Sheet code. Without knowing your sell specific the below will have Cell A2 as Validation dropdown If cell "A1" is "Single"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1") = "Single" Then
        Range("A2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="1,2,3"
    ElseIf Range("A1") <> "Single" Then
        Range("A2").Validation.Delete
        Range("A2").ClearContents
    End If
End Sub

 

[hajiali]

This might be better as the one above can result in a debug Error when delete the values in other cells

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target = "Single" Then
            Range("A2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Formula1:="1,2,3"
        Else
            Application.EnableEvents = False
            Range("A2").Validation.Delete
            Range("A2").ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[emutuc]

Many thanks hajiali. I tried to interpret this, but I'm having trouble. Can you please translate in xls?

 

[hajiali]

Many thanks hajiali. I tried to interpret this, but I'm having trouble. Can you please translate in xls?

So the above code is a Sheet code. you will need to right-click on the Sheet name at the bottom of Excel and Click the View Code Option. Copy the code and close.
When saving the workbook you will need to save it as XLSM instead of XLS.