Code to export value from ComboBox

[ilkks]

I have MACROBUTTON, that launches UserForm, that contains ComboBox. What is the code to export chosen value from ComboBox to document as text.

I have this code:

Private Sub UserForm_Initialize()
  With cboFood
      .AddItem "Apple"
      .AddItem "Pie"
      .AddItem "Meat"
      .AddItem "Squirrel"
      .AddItem "Banana"
      .AddItem "Nuts"
   End With
End Sub

____________________________________

Private Sub cmdOK_Click()

    With ActiveDocument
        .Bookmarks("Food).Range.Text = cboFood.Value
    End With
    Application.ScreenUpdating = True
    Unload Me

End Sub

And it exports the chosen value by updating it to the bookmark. It works, But I want it to be exported as text that overrides the MACROBUTTON.

I think the code that I am looking for is something like this:

Private Sub cmdOK_Click()

 Selection.TypeText Text:="cboFood.Value"
 Unload Me

End Sub

[macropod]

Do you want to delete the macrobutton field, or just update its contents?

[ilkks]

Well, the best option would be this:

There is MacroButton-field and its DisplayText says: "Double-click me to open Combobox".

And then you choose the value that you want from the dropdownlist of combobox. Then the chosen value replaces the DisplayText of MacroButton.

This way it would be possible to double-click again the MacroButton-field and choose/change new values if necessary.

---------

But I would be happy even if the MacroButton gets deleted. I just need to get the chosen value from ComboBox to document as text.

[macropod]

Hi ilkks,

Try:

Private Sub cmdOK_Click()
Selection.Fields(1).Code.Text = "MACROBUTTON Update " & cboFood.Value
Unload Me
End Sub

where 'Update' is the name of the sub called by your MACROBUTTON.

[ilkks]

Thank you for your reply macropod.

I can see and choose all values in the UserForm/ComboBox, but when I press cmdOK_Click-button it says:

Run-time error: 5941
The requested member of the collection does not exists.

The sub called by my MacroButton is called FoodDropDownList, and it is like this:

Sub FoodDropDownList()

    frmTesti.Show
    
End Sub

And therefore here is the code I tested by your instructions which makes the run-time error:

Private Sub cmdOK_Click()

Selection.Fields(1).Code.Text = "MACROBUTTON FoodDropDownList" & cboFood.Value
Unload Me

End Sub

[ilkks]

Post removed

[macropod]

Hi ilkks,

Works for me! You do need to have a space here though:
"MACROBUTTON FoodDropDownList " & cboFood.Value
not:
"MACROBUTTON FoodDropDownList" & cboFood.Value

See attached.

[ilkks]

Nevermind my previous post. It said the error when I tested code in Visual Basic Editor by F5. But when I executed the Macrobutton from the document it worked like a charm!

Thank you very much macropod for the help!