Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
One more question on ListBoxes (I hope)
when you are populating the box, why not check if the string is there at
that time. -- Regards, Tom Ogilvy "asmenut" wrote in message ... Thanks very much to Dave Peterson for his help with my "MultiSelect" Listbox problem. I have one more delima that I need help with in regards to these boxes. Once I have populated the List_AddTo box, I need to search the box for a String (Rescinds PEC). If this string is in the list, then I need to make a textbox visible for the user to add data to. Any Ideas. Private Sub CommandAdd_Click() Dim i As Long If List_AddFrom.ListIndex = -1 Then Exit Sub If Not cbDuplicates Then ' See if item already exists For i = 0 To Me.List_AddFrom.ListCount - 1 If List_AddFrom.Selected(i) = True Then List_AddTo.AddItem List_AddFrom.List(i) End If Next i For i = Me.List_AddFrom.ListCount - 1 To 0 Step -1 If Me.List_AddFrom.Selected(i) = True Then Me.List_AddFrom.RemoveItem i End If Next i End If AddPECNo End Sub Private Sub CommandRemove_Click() Dim i As Long If List_AddFrom.ListIndex = -1 Then Exit Sub If Not cbDuplicates Then ' See if item already exists For i = 0 To Me.List_AddTo.ListCount - 1 If List_AddTo.Selected(i) = True Then List_AddFrom.AddItem List_AddTo.List(i) End If Next i For i = Me.List_AddTo.ListCount - 1 To 0 Step -1 If Me.List_AddTo.Selected(i) = True Then Me.List_AddTo.RemoveItem i End If Next i End If End Sub Private Sub AddPECNo() Dim i As Long If List_AddTo.ListIndex = -1 Then Exit Sub For i = 0 To List_AddTo.ListCount - 1 If List_AddTo.List(i) = "Rescinds PEC" Then LabelPEC.Visible = True TextPEC.Visible = True End If Next i End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Templete question...I hope there is an answer | Excel Worksheet Functions | |||
VLOOKUP() Question... i hope | Excel Discussion (Misc queries) | |||
fairly basic excel question (i hope) | Excel Programming | |||
Beginner question (I hope) | Excel Programming | |||
Listboxes | Excel Programming |