How to Find values according to ComboBox and list it in the text box

[ruveenck]

Hi Experts

I want to make a UserForm in which i want to search particular items through ComboBox list and display it in the textBoxs . I have the datas in the sheet. What is the formula i need to make in the define name part . Please help me to make it .

[davesexcel]

try this,

Private Sub CbBox1_Click()

    Dim a, b, c, d, rng As Range, sh As Worksheet, s As String
    Set sh = Worksheets("Sheet1")
    Set rng = sh.Range("A1:E26")
    s = CbBox1

    a = WorksheetFunction.VLookup(s, rng, 3, 0)
    b = WorksheetFunction.VLookup(s, rng, 2, 0)
    c = WorksheetFunction.VLookup(s, rng, 5, 0)
    d = WorksheetFunction.VLookup(s, rng, 4, 0)

    TextBox1 = a
    TextBox2 = b
    TextBox3 = c
    TextBox4 = d


End Sub