Add to UserForm ComboBox from a module

[jnewlin]

I originally set up a sheet with Control Toolbox comboboxes, but would now like to move all of those comboboxes to a userform. I'm having trouble referencing a combobox that is located on a userform from a MODULE. Here is my code that's located IN A MODULE (where the first 3 dots represent more code in the subroutine that's irrelevant:

Sub SpecificGravity()
Dim LRow As Long
Dim LRowSave As Long

...

Sheets("Sheet1").Select
ActiveSheet.Shapes("ComboBox1").Select
Selection.ListFillRange = "'Elasticity'!$B$" & LRowSave & ":$D$" & LRow
End Sub

The above worked fine for populating a combobox located on a sheet.

Instead of filling ComboBox1 located on Sheet1, I want to fill ComboBox3 located in UserForm1. What code would I use? Something like:

UserForm1.ComboBox3.ListFillRange = "'Elasticity'!$B$" & LRowSave & ":$D$" & LRow

and delete the lines:

Sheets("Sheet1").Select
ActiveSheet.Shapes("ComboBox1").Select

This doesn't work.

 

[ageren]

UserForm1.ComboBox3.ListFillRange = "'Elasticity'!$B$" & LRowSave & ":$D$" & LRow

replace your above code with below;

UserForm1.Controls(ComboBox3).Rowsource = "'Elasticity'!$B$" & LRowSave & ":$D$" & LRow


sorry, i can not understand the second part of your enquire :

and delete the lines:

Sheets("Sheet1").Select
ActiveSheet.Shapes("ComboBox1").Select

 

[jnewlin]

do i need another line?

simply replacing that line of code did not work. I get the message:

"Could not set the RowSource property. Member not found."

ComboBox3 is placed in UserForm1. What am I leaving out?

 

[jnewlin]

do i need another line?

There is one small error in your answer. You left out the parenthesis. It should look like:

UserForm1.Controls("ComboBox3").RowSource = "'Elasticity'!$B$" & LRowSave & ":$D$" & LRow

It works now, thanks!

 

[ageren]

oopps sorry...

have a nice working ...