Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Excel - Help with Drop Down List 1

Status
Not open for further replies.

Randy11

Technical User
Oct 4, 2002
175
CA
Have a data validation list in a set of cells. Would like the list to pop up immediately upon clicking into the cell where the drop down is so the user can click the right choice immediately versus having to click on the drop down arrow & choose from the list. Alternatively be able to hit enter or click out of the cell if the current choice is already selected is correct. (if enter used, move to cell B1, if Item Selected move to B1, if Click in other cell in workbook allow and leave nothing if blank or current selection in list as is.
Ideally upon selecting correct item on list list will dissapear & will advance to next cell on the row. (i.e. Click on A1 make choice, upon choosing item on list, next cell B1 is selected.
Example for fisrt part: Similar to how a pop up calendar can be set up. Click in Date cell & calendar automatically pops up for date selection.
Assume drop down list is in cells a1:A10 & List Name is "Area"
Help with some VB code most appreciated.
 


hi,
Would like the list to pop up immediately upon clicking into the cell where the drop d
own is so the user can click the right choice immediately versus having to click on the drop down arrow & choose from the list.[/quote
That is not how this control behaves.
Alternatively be able to hit enter or click out of the cell if the current choice is already selected is correct.
If the current choice is already selected, you can do anything you would like. Strange requirement???
if Item Selected move to B1, if Click in other cell in workbook allow and leave nothing if blank or current selection in list as is.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub
paste in the Worksheet Object Code Window.



Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top