Dynamic Drop down Comments (Data Validation)

[Tebrica]

Hi Everyone,

I'm working to have option of presenting various Input Message comments, that would depend on selected value from drop down list.

For example if I choose "Blue" I'd need that comment to present message like "Color of the ocean and sky". Then when I choose "Yellow" (in the very same cell) the message input box should change and say "Color of the sun" etc. If I leave empty / delete then there will not be any message.
There are 5 colors to choose in total (Blue, Yellow, Red, Green, Orange), with respective comments. Then same optionality should be reflected through the range of cells (for example A1:A10).

Now, I don't like the idea of putting this into additional column next to it. I'd just need to guide user on description related to selection made in this sophisticated manner.
My idea is to use Data Validation message boxes, but if that's not feasible, the other option would be to leverage regular comment boxes. Whatever you advice.

Any proposals are welcomed. Couldn't find this one solved so far through my portal looping.

Thanks,
Tebrica

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
    'Modified  2/10/2022  8:01:55 AM  EST
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

    Select Case Target.Value
        Case "Blue": MsgBox "The sky is Blue"
        Case "Yellow": MsgBox "Color of the Sun"
        'Add more here
        
    End Select

End If
End Sub

 

[My Aswer Is This]

My script runs when you enter the value in the Range("A1:A10")

And this here is the same but will popup a message if improper value is entered:

Private Sub Worksheet_Change(ByVal Target As Range)
    'Modified  2/10/2022  8:13:35 AM  EST
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

    Select Case Target.Value
        Case "Blue": MsgBox "The sky is Blue"
        Case "Yellow": MsgBox "Color of the Sun"
        'Add more here
        
    Case Else
        MsgBox Target.Value & vbNewLine & "Is not a proper value"
    End Select

End If
End Sub

 

[Tebrica]

Thank you buddy for quick turnaround, however I'm trying to avoid pop-up notification in the middle of the window.
Check attached screenshots what type of comment boxes I'm looking for.

Thanks once again.

Tebrica

 

[My Aswer Is This]

I thought you want a Message Box to popup.
Sorry. Your wanting a Comment to be entered
Someone else will need to help you with this: