Skip to main content

How to populate textbox based on combobox selection on UserForm in Excel?

Author: Siluvia Last Modified: 2024-10-23

Supposing you have a table contains a Name and a Staff number column as below screenshot shown. Now you need to create a Userform embedded with a combo box which collecting all names inside and a text box which will populate corresponding staff number when selecting name from the combo box. The method in this article can help you to get it down.

A screenshot showing a table with Name and Staff Number columns in Excel

Populate textbox based on combobox selection on Userform with VBA


Populate textbox based on combobox selection on Userform with VBA

Please do as follows to populate textbox with corresponding value based on combobox selection on Userform.

1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Userform. See screenshot:

A screenshot showing how to insert a UserForm in Excel VBA

3. Then insert a Combo box control and a Text box control into the created Userform as below screenshot shown.

A screenshot of a UserForm in Excel with a ComboBox and TextBox added

4. Right-click on any blank space of the Userform, and then click View Code from the context menu. See screenshot:

A screenshot showing how to open the code window for the UserForm in Excel VBA

5. In the opening Userform (Code) window, please copy and paste the below VBA code to replace the original.

VBA code: Populate textbox based on combobox selection on Userform

Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Sheet5").Range("A2:B8")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub

Note: In the code, A2:B2 is the range contains the values you will populate separately in both the Userform combo box and text box. And Sheet5 is the name of the worksheet contains the data range. Please change them as you need.

6. Press the Alt + Q keys to exit the Microsoft Visual Basic for Applications window.

7. Click Developer > Insert > Command Button (ActiveX Control) to insert a command button into the worksheet.

8. Right-click the sheet tab and select View Code from the right-clicking menu. Then copy and paste VBA code into the code window.

VBA code: Show userform

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. Turn off the Design Mode in the workbook.

Click the command button to open the specified userform. Then you can see all names are collected in the combo box. When selecting a name from the combo box, the corresponding staff number will be populated into the textbox automatically as below screenshot shown.

A screenshot showing the UserForm with ComboBox selection populating the TextBox in Excel


Related articles:

Best Office Productivity Tools

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions…
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more
Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...


Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!