	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.1

VBA Excel form using drop down list to populate list values while displaying descriptions

Asked by cbads in MS SQL Server, VB Script, Microsoft Excel Spreadsheet Software

I have a basic excel form that uses a drop down list of values from a worksheet and it appears to be working okay but I would like to be able to include the descriptions of the values on the list. Example: below is the drop down list values and descriptions of positions. I'd like to be able to have the list show RN, Phs Coordinator, etc for the user to select but it would write the values depending on what is selected. So the user would see RN, Data Analyst, etc...but when they select RN it would write 5004. Currently it displays and writes the numeric values. I have also included an example of my current code. Thanks

5004      RN
5005      PhsCoordinator
5006      Data Analyst
5007      Sr. Director Opp

Get your answer NOW

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

           
           
             Sub Button1_Click()
Dim MyUniqueList As Variant, i As Long
    With usr_Form.cbo_pos
            .Clear ' clear the listbox content
        MyUniqueList = PosItemList(Sheet10.Range("A4:A100"), True)
        For i = 1 To UBound(MyUniqueList)
            .AddItem MyUniqueList(i)
        Next i
        .ListIndex = 0 ' select the first item
    End With
 
Private Function PosItemList(InputRange As Range, _
    HorizontalList As Boolean) As Variant
Dim cl As Range, cUnique As New Collection, i As Long, uList() As Variant
    Application.Volatile
    On Error Resume Next
    For Each cl In InputRange
        If cl.Formula <> "" Then
            cUnique.Add cl.Value, CStr(cl.Value)
        End If
    Next cl
    PosItemList = ""
    If cUnique.Count > 0 Then
        ReDim uList(1 To cUnique.Count)
        For i = 1 To cUnique.Count
            uList(i) = cUnique(i)
        Next i
        PosItemList = uList
        If Not HorizontalList Then
            PosItemList = _
                Application.WorksheetFunction.Transpose(PosItemList)
        End If
    End If
    On Error GoTo 0
End Function

           
         

20091111-EE-VQP-89 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. angelIII1,343,458
2. aneeshatti...1,140,813
3. rrjegan171,076,477
4. chapmandew767,967
5. RiteshShah730,535
6. BrandonG...626,234
7. acperkins610,988
8. reb73522,425
9. ralmada481,454
10. mark_wills446,542
11. mwvisa1407,463
12. matthews...381,238
13. Sharath_...287,698
14. EugeneZ251,860
15. CGLuttrell222,853
16. ScottPletc...222,540
17. momi_sa...206,089
18. pivar194,587
19. cs97jjm3180,186
20. pcelba176,068
21. pssandhu161,259
22. DanielWilson156,733
23. tigin44155,914
24. rob_farley143,153
25. JestersGrind139,263

1. angelIII12,728,120
2. aneeshatti...5,826,011
3. acperkins4,998,376
4. ScottPletc...4,590,513
5. chapmandew3,341,073
6. arbert2,245,195
7. Lowfatsp...2,174,384
8. EugeneZ1,924,643
9. imran_fast1,485,025
10. rafrancisco1,460,132
11. BrandonG...1,339,712
12. nmcdermaid1,263,861
13. mark_wills1,236,802
14. Hilaire1,221,775
15. matthews...1,181,709
16. Nightman1,158,168
17. bhess11,103,687
18. Mr_Peer...1,087,815
19. rrjegan171,076,477
20. ptjcb1,074,620
21. dtodd1,025,298
22. appari900,309
23. adathelad836,908
24. Sirees776,352
25. RiteshShah730,535

VBA Excel form using drop down list to populate list values while displaying descriptions

Asked by cbads in MS SQL Server, VB Script, Microsoft Excel Spreadsheet Software

About this solution