Pass the selected in Combobox to a Textbox of a Word form

gmaxey · #1 07-22-2020, 09:07 AM

When you post code that someone else provided to you, you should at least acknowledge the source!

Have to use a ListBox???? oListOrComboBox as object should make it pretty clear that you can use a List or ComboBox!!!

Regardless, writing the value selected in a listbox to a textbox has little to do with how that listbox was populated.

Code:

Private Sub UserForm_Initialize()
  With ListBox1
    .AddItem "A"
    .AddItem "B"
    .AddItem "C"
  End With
  With ListBox2
    .AddItem
    .List(.ListCount - 1, 0) = "A"
    .List(.ListCount - 1, 1) = "Apples"
    .AddItem
    .List(.ListCount - 1, 0) = "B"
    .List(.ListCount - 1, 1) = "Birds"
    .AddItem
    .List(.ListCount - 1, 0) = "C"
    .List(.ListCount - 1, 1) = "Cats"
  End With
End Sub

Private Sub CommandButton1_Click()
  TextBox1 = vbNullString
  TextBox2 = vbNullString
  If ListBox1.ListIndex <> -1 Then TextBox1 = ListBox1
  If ListBox2.ListIndex <> -1 Then TextBox2 = ListBox2 'Uses the bound column
  'Or use an explicit indexed column
  'If ListBox2.ListIndex <> -1 Then TextBox2 = ListBox2.Column(0)
  'If ListBox2.ListIndex <> -1 Then TextBox2 = ListBox2.Column(1)
lbl_Exit:
  Exit Sub
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create a ComboBox in a Form that creates a new document and autofills a textBox	BlackGirlMagic	Word VBA	5	02-13-2017 02:39 PM
Pass combobox content to header	wpryan	Word VBA	3	07-17-2015 01:44 AM
Outlook 2007 Code For Matching Textbox to a Combobox in a Different Form	lms	Outlook	4	07-03-2013 08:34 AM
how to populate textbox based on combobox selection in word	IvanGeorgiev	Word	1	02-21-2013 07:32 PM
how to populate textbox based on combobox selection in word	IvanGeorgiev	Word VBA	1	02-21-2013 07:28 PM