VBA ComboBox to TextBox in two diferent user forms

Question

So I need help finishing up a app lookup on elements from the periodic table. The idea if to have the user input the element in the combo box in Userform1 which has a drop down list. To then depending on the element chosen be directed to Userform2 that has a text box, and in that text box be given the atomic mass for each element . I need an example of how and where to write the code in either userfroms. This is what i have so far. UserForm1 name is Element_LookUp Userform2 Name is Element_LookUp_Result

Userform1 :

Private Sub CommandButton1_Click()

    Unload Me                   'Closes The Screen after the click
    Element_LookUp_Result.Show  'Shows The result scrren in a new pop up

End Sub

Private Sub UserForm_Initialize()

    ' All 118 Elements will be shown on a drop down list
    ' The elements are in order ; autofill helps input the element.

    ComboBox1.AddItem "Hydrogen"
    ComboBox1.AddItem "Helium"
    ComboBox1.AddItem "Lithium"
    ComboBox1.AddItem "Beryllium"
    ComboBox1.AddItem "Boron"
    ComboBox1.AddItem "Carbon"

End Sub ' Not all the elements are listed below i just wanted to save time

UserForm 2 :

Private Sub UserForm_Terminate()

    Unload Me               'Once the (X) is clicked the result screen goes away
    Element_Lookup.Show     'Result scrren goes back to the input screen again

End Sub

I think you want to pass data between two different userforms. But you also seem to have other issues in understanding how to build and use userforms in general. For that please have a look here — Storax
– Storax, Commented Nov 30, 2018 at 16:17
I'm still a bit confused could you show me how the code would work for lets say if input hydrogen in the comboBox in userform 1 and then want to display the "Atomic mass:1.007" in the textbox in userform 1. @Storax — Elchavo18
– Elchavo18, Commented Nov 30, 2018 at 16:44

Cyril · Accepted Answer · 2018-11-30 16:42:15Z

-2

As you're maintaining data from different userforms/modules, etc., I believe you're looking to have a global variable... At the top of the module for your userform (for the purpose of this post, will say UF1 is userform1, UF2 as userform2), you will put (not inside of a subroutine):

Public ElementName as String

Now, in your commandbutton1_click:

ElementName = Combobox1.Value

In UF2 initilize subroutine, you will put something like:

Textbox1.value = UF1.ElementName

The above example would be how to just pass the variable. You could also use ElementName such as:

Textbox1.Value = Application.Index(OutputRange,Application.Match(UF1.ElementName,LookupRange,0))

With that index/match you have used ElementName to find an output, where you would want the column for atomic mass.

answered Nov 30, 2018 at 16:42

Cyril

6,8291 gold badge21 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Elchavo18 Over a year ago

Worked like a charm! Thanks! Now what if I want to display something else other then the name of the element. The atomic mass lets say. Would i have to make if statements for each element?

Cyril Over a year ago

I would recommend having a single table with all of your data... columns(1) has element name, columns(2) has atomic mass, etc. That table can be used for many things... like initializing your combobox to use the element name range, then you use index/match to output the table data from any column based on the element name.

Cyril Over a year ago

Also, if this solved the initial issue, please check as answered.

Collectives™ on Stack Overflow

VBA ComboBox to TextBox in two diferent user forms

1 Answer 1

3 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related