VLOOKUP Funtion within a User Form

**bern** · 10-20-2006, 05:41 PM

Hi All
Due to the limited response to my query perhaps I can just try to explain further what I am trying to achieve.
In my user form I have a combo box (Venue) from which I can choose from up to a hundred different venues. Each of these venues has differing codes for pricing purposes. I.e. Birmingham is in code A or Southampton is a code C...

In another combo box (Band Code) I have a choice of call types i.e. A7 which is the venue code and the number of hours to respond.
There could be up to hundred venues which are all coded either A, B, C, D.

I would like a box to give me the code for that venue in a separate box so I can choose the appropriate code in the Band code
The code would read something like =Vlookup Venue, Codes, 2
But I cannot seem to implement it or where? (Codes being a list of venues and band codes in the worksheet)

Any Help please
Bern

**davesexcel** · 10-21-2006, 01:22 PM

Hi, I was not able to get a Vlookup to work in a userform such as selecting from a comboBox and the value showing up in a textbox using VBA,
But I thought of another alternative,
attatched you will see an example

**bern** · 10-22-2006, 01:50 PM

Hi Dave
Thanks for the reply, I used the code you sent, it worked great, its just that the form I use, the details goes into separate sheets so it proved difficult, in the end I decided to put a list of codes into my form and will read them from there.

Again many thanks for assistance
Bern

**davesexcel** · 01-06-2016, 06:11 AM

Originally Posted by davesexcel

Hi, I was not able to get a Vlookup to work in a userform such as selecting from a comboBox and the value showing up in a textbox using VBA,
But I thought of another alternative,
attatched you will see an example

Edit: Cleaned up code, uses Vlookup in VBA, replace it with the combobox code.

Private Sub ComboBox1_Change()
    Dim x
    x = Application.WorksheetFunction.VLookup(Me.ComboBox1, range("A1:B7"), 2, 0)
    Me.TextBox1 = x
End Sub