Auto Show Drop-Down List When Selecting the Cell

[mistersend]

Hello!
I have craeted a simple drop down menu with the help of data validation in cell "B3". The list contains 4 options, A,B,C and D.

Now, as we all know, If I want to see this 4 option or select any one of them, I must first select the cell "B3". Then a down arrow will appear on right side of the cell.

Only after Clicking this arrow, we can see the list.


My Requirement:
Just after selecting the cell "B3", the drop down list should appear automatically, without clicking the down arrow shown in right side of the cell.

Is there any way, any Macro, anything else to do that??

I do not want to use User Form. It may make the things more complicated, while I want to make the things more easy!

Thanks in Advance!!


(This question is first posted here Auto Show Drop-Down List When Selecting the Cell
But I couldn't get the solution I expected. Hence, I've to post it here)

 

[Peter_SSs]

Try this worksheet selection change code. To implement ..
1. Right click the sheet name tab and choose "View Code".
2. Copy and Paste the code below into the main right hand pane that opens at step 1.
3. Close the Visual Basic window & test.
4. Your workbook will need to be saved as a macro-enabled workbook (*.xlsm).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lDVType As XlDVType
    
    If Target.Cells.CountLarge = 1 Then
        On Error Resume Next
        lDVType = Target.Validation.Type
        On Error GoTo 0
        If lDVType = xlValidateList Then SendKeys "%{down}"
    End If
End Sub

 

[mistersend]

Thank you for the code!
The code is working great with unmerged cells.

But it's not working with merged cells, as shown in the picture.

Would you please help!!

 

[Peter_SSs]

Merged cells often cause difficulties with vba code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lDVType As XlDVType

    On Error Resume Next
    If ActiveCell.MergeArea.Address = Selection.Address Then lDVType = ActiveCell.Validation.Type
    On Error GoTo 0
    If lDVType = xlValidateList Then SendKeys "%{down}"
End Sub

 

[mistersend]

SOLVED!
Thank you so much for the macro!
It works absolutely fine with merged as well as unmerged cells.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.

 

[DarrenBurke]

You're welcome. Thanks for the follow-up.

Just what i was looking for. Works perfect. Thank you Peter.

 

[Peter_SSs]

Just what i was looking for. Works perfect. Thank you Peter.

 

[Gr33nMM]

Merged cells often cause difficulties with vba code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lDVType As XlDVType

    On Error Resume Next
    If ActiveCell.MergeArea.Address = Selection.Address Then lDVType = ActiveCell.Validation.Type
    On Error GoTo 0
    If lDVType = xlValidateList Then SendKeys "%{down}"
End Sub

Hi and thanks for code,

Is working also for me, on each drop-down cell selected/activated, is opening the list to choose, but is doing also NumLock in On/Off.
Have you any idea what can trigger changing the NumLock stage and/or how to stop this?

Thanks in advance!