About Us

Dave Peterson[_3_]

This might give you some ideas:

http://groups.google.com/groups?thre...1043%40msn.com

asmenut wrote:

I have two list boxes that I am using as add / remove boxes. Is there a way
to allow multiple selections to be added at the same time.

If List_AddFrom.ListIndex = -1 Then Exit Sub
If Not cbDuplicates Then
' See if item already exists
For i = 0 To List_AddTo.ListCount - 1
If List_AddFrom.Value = List_AddTo.List(i) Then
Beep
Exit Sub
End If
Next i
End If
List_AddTo.AddItem List_AddFrom.Value

End Sub

Private Sub CommandRemove_Click()
If List_AddTo.ListIndex = -1 Then Exit Sub
List_AddTo.RemoveItem List_AddTo.ListIndex
End Sub

Private Sub MultiPage1_Change()
If MultiPage1.Value = 2 Then
EO_Wizard.List_AddFrom.RowSource = ""
EO_Wizard.List_AddFrom.Clear
With EO_Wizard.List_AddFrom
.RowSource = ""
.AddItem "Machine"
.AddItem "Part"
.AddItem "Accessory"
.AddItem "Rescinds PEC"
.AddItem "Preventive Action"
.AddItem "Bulletin Required"
.AddItem "UL/CSA/CE Affected"
.AddItem "Manual Change Required"
.AddItem "S/N at Changeover"
.AddItem "Cost Increase over 5%"
.AddItem "Appearance/Function/Safety Affected"
.AddItem "1st Piece Sample Required"
End With
End If

End Sub

--

Dave Peterson

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Select Multiple Items and return value for Dropdown or listbox	kookie	Excel Discussion (Misc queries)	4	January 19th 09 10:18 PM
Moving Mutli-Column Multiple-Selected Listbox items up or down	MP	Excel Discussion (Misc queries)	0	January 14th 09 09:34 PM
Selecting multiple items and columns from ListBox	TK	Excel Programming	0	August 25th 04 01:19 AM
Transfer multiple columns items form listbox to range	Rolo[_3_]	Excel Programming	3	November 15th 03 06:50 PM
Selecting multiple rows from listbox for reporting	Brett9[_2_]	Excel Programming	3	November 5th 03 11:07 AM

Menu

About Us