Thread: [Solved] Multiple Selection Dropdown list
View Single Post
 
Old 05-30-2018, 04:26 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
So have just one CommandButton1_Click sub with code like:
Code:
Private Sub CommandButton1_Click()
Dim i As Long, StrOut As String
Call UpdateBookmark("bmdate", TextBox1.Value)
Call UpdateBookmark("bmname", TextBox3.Value)
Call UpdateBookmark("bmlicense", TextBox2.Value)
'etc.
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
    StrOut = StrOut & ListBox1.List(i) & vbCr
  End If
Next i
Call UpdateBookmark("bm1", StrOut)
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote