Open Embed excel files (Object) based on combo box value.

[Rahulwork]

Hello


I made on combo box and gave name - ComFruit

Under that i added items via UserForm_Initialize()

comComfruit.AddItem "Apple1"
comComfruit.AddItem "Apple2"
comComfruit.AddItem "Apple3"
comComfruit.AddItem "Apple4"

Have one button and button name is ComGeneFruit

I want if from combox if Apple1 is select and then click ComGeneFruit button then object 1 should be open
same for apple 2 for object 2 and apple 3 for object 3 and apple 4 for object 4.

this is just an example having big list of object and drop down list.

Please help.

 

[Grand]

I think we have solved a similar task in your other post. But here we go again:

in developer mode double click on the ComGeneFruit button and place this code in the sub:

    If comComfruit.Value = "Apple1" Then
     Sheets("Sheet1").OLEObjects("Object 1").Activate
    ElseIf comComfruit.Value = "Apple2" Then
     Sheets("Sheet1").OLEObjects("Object 2").Activate
    ElseIf comComfruit.Value = "Apple3" Then
     Sheets("Sheet1").OLEObjects("Object 3").Activate
    ElseIf comComfruit.Value = "Apple4" Then
     Sheets("Sheet1").OLEObjects("Object 4").Activate
    End If

Pleae check if your comb is called ComFruit or comComfruit and remeber that things are case sensetive. Also change the sheet name to that sheet where your objects are embeded.

 

[Rahulwork]

in place of "Sheet1" should i mention sheet name on which all objects are attached?

 

[Grand]

Exactly.

 

[Rahulwork]

Bingo... thanks Brother

 

[Rahulwork]

i am sorry for this but need your expert help in below:

https://www.mrexcel.com/forum/excel...nd-checkbox-textbox-userform.html#post5161011