Putting a list into a ComboBox in a UserForm1

[bugatti79]

Folks,

I am trying to put a a list of names into a ComboBox that is inserted in a user form. I have used the record macro feature to capture the code. Here is the snippet that I put into the ComboBox procedure

Private Sub ComboBox1_Change()    

With Selection
        .ListFillRange = "'Table of Material Data'!$A$3:$A$19"
        .LinkedCell = ""
        .DropDownLines = 8
        .Display3DShading = False
    End With
End Sub

When I run it, the dialogue box comes up with the ComboBox but it is empty. How do I put a list into it?

Ultimately, say I have 2 materials each with 2 different mechanical properties. I want to perform some calcs when a material is selected.
Any help will be appreciated.
Thanks

 

[mikerickson]

Put that code in the userform's Initalize event rather than the Combobox's Change event.

 

[bugatti79]

Put that code in the userform's Initalize event rather than the Combobox's Change event.

Hi

I have done as you have requested but I get an error about 'object does not support this property or method.

Private Sub UserForm_Initialize()    
With Selection
        .ListFillRange = "'Table of Material Data'!$A$3:$A$19"
        .LinkedCell = ""
        .DropDownLines = 8
        .Display3DShading = False
    End With
End Sub

THe above code has no connection with the ComboBox. What code goes into this ComboBox?

thanks

 

[RJPotts]

The following:

Private Sub UserForm_Initialize()

With Me.ComboBox1
        .RowSource = "'Table of Material Data'!$A$3:$A$19"
    End With
End Sub

should populate the combobox on the form.

Best regards
Richard

 

[bugatti79]

The following:

Private Sub UserForm_Initialize()

With Me.ComboBox1
        .RowSource = "'Table of Material Data'!$A$3:$A$19"
    End With
End Sub

should populate the combobox on the form.

Best regards
Richard

Thanks, that works.

I have another query.
Each material in the drop down menu has associated material properties. So when material is selected how do I assign the associated material properties to a row of cells for further calculation.

I know this excel line works but I don't know its equivalent in VB

=INDEX('Table of Material Data'!A3:I19,MATCH(B6,'Table of Material Data'!A3:A19,0),3)

Thanks

 

[RJPotts]

Thanks, that works.

I have another query.
Each material in the drop down menu has associated material properties. So when material is selected how do I assign the associated material properties to a row of cells for further calculation.

I know this excel line works but I don't know its equivalent in VB

=INDEX('Table of Material Data'!A3:I19,MATCH(B6,'Table of Material Data'!A3:A19,0),3)

Thanks

Private message me for an email address, I think it would be easiest to see the file.

Best regards
Richard