Can anyone please help me to understand why my combobox is not being populated?
Public Sub ComboBox1_Change()
ComboBox1.Items.Add ("")
ComboBox1.Items.Add ("Stevel")
ComboBox1.Items.Add ("Janet")
ComboBox1.Items.Add ("Debbie")
ComboBox1.Items.Add ("Roger")
ComboBox1.Items.Add ("Gurpreet")
ComboBox1.Items.Add ("David")
ComboBox1.Items.Add ("Shamas")
ComboBox1.Items.Add ("Diane")
ComboBox1.Items.Add ("Paul")
End Sub
That's really not a lot of information to go off of. My guess is that your ComboBox1_Change() method isn't getting called but I'm really just taking a wild guess.
Hi Mark Bradford,
If possible can you share your code?
It is very difficult to give a solution for incomplete information!
As Alex Burnett has mentioned, your method isn't calling.
You can try to look at this post "VBA Userforms - Open new Assembly and Drawing document" as an example.
It also used Combo Box but I found it more clear to use.
Thanks
I'm very sorry. I thought I did attach my macro with my original post, but it must not have attached. Here is is now.
The goal is to replace the 3 Supplier boxes with combo boxes so that the user can select the supplier from a list. all these supplier boxes will use the same list.
I think I would then like to add a material box here also. That could change the assign the material and custom property as well.
I'm not sure who made the original code. It is not titled as I have seen others do in other macros.
Thanks guys.
Hi Mark,
Thank you for sharing Macro and images.
I have looked into your code and found that "ComboBox1_Change()" was not call anywhere.
Because of this, you did not see any list in the combo box.
Another thing is that items are not adding into Combox Box with existing code.
I have updated your code which is shown below:
Call "ComboBox1_Change()" function on "UserForm_Initialize()" as shown below
Public Sub UserForm_Initialize()
' add properties if not exist (active doc)
PFG = swModel.AddCustomInfo3("", Prop1_Name, swCustomInfoText, "")
PFG = swModel.AddCustomInfo3("", Prop2_Name, swCustomInfoText, "")
PFG = swModel.AddCustomInfo3("", Prop3_Name, swCustomInfoText, "")
PFG = swModel.AddCustomInfo3("", Prop4_Name, swCustomInfoText, "")
PFG = swModel.AddCustomInfo3("", Prop5_Name, swCustomInfoText, "")
PFG = swModel.AddCustomInfo3("", Prop6_Name, swCustomInfoText, "")
GetPFGNo = swModel.CustomInfo(Prop1_Name)
GetDrawnBy = swModel.CustomInfo(Prop2_Name)
GetCustomer = swModel.CustomInfo(Prop3_Name)
GetSupplierA = swModel.CustomInfo(Prop4_Name)
GetSupplierB = swModel.CustomInfo(Prop5_Name)
GetSupplierC = swModel.CustomInfo(Prop6_Name)
TextBox1.Text = GetPFGNo
TextBox2.Text = GetDrawnBy
TextBox3.Text = GetCustomer
TextBox4.Text = GetSupplierA
TextBox5.Text = GetSupplierB
TextBox6.Text = GetSupplierC
' Call Combo Box
Call ComboBox1_Change
End Sub
Also, I have updated how to add items in Combo Box as shown below:
Public Sub ComboBox1_Change()
' Adding Items into ComboBox
With ComboBox1
.AddItem ("")
.AddItem ("Sky Industrial")
.AddItem ("McMaster-Carr")
.AddItem ("Ellwood")
.AddItem ("Esses Metals")
.AddItem ("Thyssenkrupp")
.AddItem ("Kinto")
.AddItem ("Component Guys")
.AddItem ("Festo")
.AddItem ("Proax")
End With
End SubWhen I run the Macro, I get the result as shown in below image
Since these are small changes in Macro, I did not add the updated macro here.
I hope this will work for you.
Thanks
Prashant Baher
Outstanding. Thanks so much Prashant! I still have much to learn. But these are the things that help me.
Hi Mark,
Thank you for sharing Macro and images.
I have looked into your code and found that "ComboBox1_Change()" was not call anywhere.
Because of this, you did not see any list in the combo box.
Another thing is that items are not adding into Combox Box with existing code.
I have updated your code which is shown below:
Call "ComboBox1_Change()" function on "UserForm_Initialize()" as shown below
Also, I have updated how to add items in Combo Box as shown below:
When I run the Macro, I get the result as shown in below image
Since these are small changes in Macro, I did not add the updated macro here.
I hope this will work for you.
Thanks
Prashant Baher