Linking Combobox to multiple bookmarks

[scarda]

I have set up numerous combo-boxes on my Userform. I connected the combo-box to the relevant bookmark in the document. However there are other bookmarks that I want to populate, based on the combo-box selection but with different wording.


As an example, I have a series of town names each with their own unique description. So when I select a particular town, the description will populate that particular bookmark.
Does anyone have suggestions on what sort of code to use?
Thank you in anticipation

[gmayor]

Call the following sub to fill your bookmarks with the data required. You can call it from your userform e.g. as follows, replacing the bookmark names and values as appropriate.

Select Case Me.ComboBoxName.ListIndex
        Case 0
               FillBM "Bookmarkname", "Value to put in bookmark"
               FillBM "AnotherBookmarkname", "Another value to put in bookmark"
         'etc
     Case 1
               FillBM "Bookmarkname", "Value to put in bookmark"
               FillBM "AnotherBookmarkname", "Another value to put in bookmark"
         'etc
     'Repeat for each list index as required
End Select

Public Sub FillBM(strBMName As String, strValue As String)
Dim orng As Range
    With ActiveDocument
        On Error GoTo lbl_Exit
        Set orng = .Bookmarks(strBMName).Range
        orng.Text = strValue
        orng.Bookmarks.Add strBMName
    End With
lbl_Exit:
    Exit Sub
End Sub

[gmaxey]

Graham has shown you one way. I'm going to Shanghai part of his code to show you another. If you define all of your variables in the combobox (multi-column) you can do it like this:

Private Sub UserForm_Initialize()
  With Me.ComboBox1
    .AddItem
    .List(.ListCount - 1, 0) = "Cleveland"
    .List(.ListCount - 1, 1) = "A city in northwestern Ohio, USA"
    .AddItem
    .List(.ListCount - 1, 0) = "Cincinnati"
    .List(.ListCount - 1, 1) = "A city in southwestern Ohio, USA"
  End With
End Sub
Private Sub CommandButton1_Click()
  On Error GoTo Err_UserDefined
   FillBM "bmCityName", Me.ComboBox1.Column(0)
   FillBM "bmDescription", Me.ComboBox1.Column(1)
lbl_Exit:
   Unload Me
   Exit Sub
Err_UserDefined:
  FillBM "bmCityName", Me.ComboBox1.Value
  FillBM "bmDescription", "Not defined"
  Resume lbl_Exit
End Sub
Public Sub FillBM(strBMName As String, strValue As String)
Dim oRng As Range
  With ActiveDocument
    On Error GoTo lbl_Exit
    Set oRng = .Bookmarks(strBMName).Range
    oRng.Text = strValue
    oRng.Bookmarks.Add strBMName
  End With
lbl_Exit:
  Exit Sub
End Sub

[gmayor]

If you are creating the combobox, then Greg's approach works well, but seeing that he has improved on my suggestion, I'll return the favour.

I would set the combobox to display only the first column, by setting the column count (here 2, but you can have more colums as required) and making all but the first column have a width of zero. As it is a combobox and not a list box, I would also add a prompt at the top of the list and set the listindex to that prompt i.e. 0

Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .ColumnCount = 2
        .ColumnWidths = .Width & ",0"
        .AddItem
        .list(.ListCount - 1, 0) = "[Select City]"
        .list(.ListCount - 1, 1) = "" 
        .AddItem
        .list(.ListCount - 1, 0) = "Cleveland"
        .list(.ListCount - 1, 1) = "A city in northwestern Ohio, USA"
        .AddItem
        .list(.ListCount - 1, 0) = "Cincinnati"
        .list(.ListCount - 1, 1) = "A city in southwestern Ohio, USA"
        .ListIndex = 0
    End With
End Sub

[scarda]

Thanks Graham and Greg it's much appreciated, I used a combination of both your codes to work this one out.