drop down menu

[MR.BIG.RED]

Hello Guys,

I'm a little stuck creating this macro, and after quite a bit of reading I think its about time I ask for some help.
The macro that I am trying to create will be used as a part of a large formula sheet.
The issue I'm having is finding a drop down menu which will input a value into the formula sheet.
I would like the user to be able to select a name from the drop down menu and subsequently a value linked to that name to be inputted into the formula sheet.
I would like also to for the user to have the ability to input their own value.
Also when the name or new value has been entered for that to appear in the adjacent cell to the drop down menu.

[MR.BIG.RED]

Hi,
Does any one have any thoughts or ideas of what I could search that is related?

[Gervie]

Hi,
I think you can try to use Data Validation.

[Leith Ross]

Hello MR.BIG.RED,

Welcome to the Forum!

If you post your workbook, it will be easier to answer your question.

To Attach a File:
1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

[MR.BIG.RED]

Hi Leith,

Thank you for that information. I've attached a example of what I would like, I know how to get the combo box to display the name but not the
value.

Hopefully some knows how to help me

Example.xlsx

[Gervie]

OK, I have understood what you want. You double clicks in Combobox and copy below code:

Private Sub ComboBox1_Change()
Dim i As Long
EndR = Sheets("Sheet1").Range("B65000").End(xlUp).Row
For i = 3 To EndR
    If Sheets("Sheet1").ComboBox1.Value = Sheets("Sheet1").Range("A" & i).Value Then
        Sheets("Sheet1").Range("E2").Value = Sheets("Sheet1").Range("B" & i).Value
        Exit Sub
    End If
Next i
End Sub