Show value in Textbox1 from Worksheet depending on ComboBox1 selection

Question

Wondering if you could help with adding a value from my Worksheet to my TextBox1 depending on what ComboBox1 item is selected.

So far I have this for my ComboBox1 to pull a list from my Worksheet

Private Sub UserForm_Initialize()
' *** Load the companies into the delivering firm combo box ***
For Each cell In Range("RejectTitle")
    If cell <> "" Then
        Me.RejectTitleNm.AddItem cell
    End If
Next cell
End Sub

Now I am trying to have my UserForm show a value from Worksheet into TextBox1 depending on ComboBox but I believe I'm heading down the wrong path?

Private Sub RejectTitleNm_Change()
    Me.TextBox1.Text = Worksheets("Sheet1").Range("E5").Value
End Sub

http://stackoverflow.com/questions/1083603/vba-using-withevents-on-userforms maybe that'll help — interesting-name-here, May 17 '17 at 19:12
@GibralterTop - how is your link related to the OP's question? — Tim Williams, May 17 '17 at 19:54
You can use `Find()` or `Vlookup` to locate the selected value on the worksheet, then take the value from the required column on the same row. — Tim Williams, May 17 '17 at 19:54
@TimWilliams the question is "I'm heading down the wrong path?". Just posting the link in case it'll help, as I said. Maybe the event is never firing? Who knows. Maybe there's syntax errors in the event register code. I don't think anyone can know what this question is asking and be certain. — interesting-name-here, May 17 '17 at 20:10
There is some confusion. OP, please define what RejectTitleNm is. — John Muggins, May 17 '17 at 20:25

score 0 · Answer 1 · answered May 17 '17 at 21:09

0

Something like this:

Private Sub RejectTitleNm_Change()

    Dim f As Range, v

    v = Me.RejectTitleNm.Value
    'find the selected value in the source range
    Set f = Range("RejectTitle").Find(v, lookat:=xlWhole)

    Me.TextBox1.Text = ""
    If Not f Is Nothing Then
        'got a match: get value from ColB on same row
        Me.TextBox1.Text = f.EntireRow.Cells(, "B").Value
    End If

End Sub

answered May 17 '17 at 21:09

Tim Williams

154,628
8
97
125

Hi Tim, srry about that. RejectTitleNm is the name of my ComboBox1 – user3806255 May 18 '17 at 04:35
Thank you! Also, do I need to change the name of f to the name cell on Worksheet? – user3806255 May 18 '17 at 19:30
`f` is just the name of variable - it doesn't make any difference what it's called. – Tim Williams May 18 '17 at 19:43
Ok, this still isn't working. Am I suppose to fill in a blank somewhere? – user3806255 May 18 '17 at 21:03
Also, my column B is named ProcessProcedures, but that doesn't see to work either? – user3806255 May 18 '17 at 21:06
"not working" is not a very useful description of what's happening when you try to run this. What exactly are you seeing when you make a selection from the combo box? – Tim Williams May 18 '17 at 21:15
Sorry, Nothing happens. I select an item in the combo box and nothing shows in the TextBox1 – user3806255 May 18 '17 at 21:28
I apologize my TextBox1 visible setting was set to False. It works perfectly now! Thank you so much, and sorry again! – user3806255 May 18 '17 at 21:31

Show value in Textbox1 from Worksheet depending on ComboBox1 selection

1 Answers1