Populate UserForm Label boxes based on ComboBox text string match

[redspanna]

Hey all

I'm using a range found in Stock sheet range B3:B10 to populate ComboBox1 in my userform.
When the user selects a text string from ComboBox1 I would like a VLookup (or similar) to look for an exact match to this selected ComboBox value through the range B3:B10 in Stock sheet.
Once found then populate Label1 of the userform with the value found in corresponding column D and Label2 with the value found in corresponding column E

UserForm is named Stock

Hope this makes sense and thanks in advance

 

[Akuini]

Something like this:

Private Sub ComboBox1_Change()

    If ComboBox1.ListIndex > -1 Then
    Dim c As Range
        With Sheets("Stock")
            Set c = .Range("B3:B10").Find(What:=ComboBox1.Text, LookIn:=xlValues, lookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                If Not c Is Nothing Then
                    Me.Label1 = .Cells(c.Row, "D")
                    Me.Label2 = .Cells(c.Row, "E")
                End If
        End With
    
    End If

End Sub

 

[redspanna]

Something like this:

Private Sub ComboBox1_Change()

    If ComboBox1.ListIndex > -1 Then
    Dim c As Range
        With Sheets("Stock")
            Set c = .Range("B3:B10").Find(What:=ComboBox1.Text, LookIn:=xlValues, lookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                If Not c Is Nothing Then
                    Me.Label1 = .Cells(c.Row, "D")
                    Me.Label2 = .Cells(c.Row, "E")
                End If
        End With
   
    End If

End Sub

Perfect - thanks a lot

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.