Userform copy value

[johnster]

In my UserForm is a dropbox with multiple names like Emergency, Maintenance, HR, .. and 2 textboxes.
Is there a vba code to lookup the dropbox value and paste the 2 textbox values under the dropboxvalue in the sheet.

See screenshot https://imgur.com/a/riaakva


Thx in advance

 

[My Aswer Is This]

Assuming these search for values are in column A of the active sheet

Try this:
Assuming your Combobox is named Combobox1
And your Textboxes are named Textbox1 and Textbox2

If these assumptions are not correct modify the script or Provide specific details.

Private Sub CommandButton2_Click()
'Modified  10/19/2018  10:42:36 PM  EDT
Dim SearchRange As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set SearchRange = Range("A1:A" & Lastrow).Find(ComboBox1.Value)
If SearchRange Is Nothing Then MsgBox "The Value  " & ComboBox1.Value & "  Not Found": Exit Sub
SearchRange.Offset(1).Value = TextBox1.Value
SearchRange.Offset(2).Value = TextBox2.Value
End Sub