Listbox in UserForm

[vijay2482]

hi all,

i have a ListBox in my userform
i want to enter n items in the listbox at runtime
i also want to have a delete button,so that if i think i dont want that particular item in my listbox,by selecting that item from that listbox and clicking delete,should remove/delete that item from the listbox.

is it possible to do?

any help is appreciated

thanks in advance

 

[ScottR]

Yes that's all possible and fairly easy to accomplish. Only slightly more complicated if you wish to add values to a multi column list box.

(Assuming its called ListBox1)

Adding items is the same as adding them to a Combobox i.e

Me.ListBox1.Additem(itemvalue)

To delete the selected item your command button code should contain

'Exits without action if no item is selected
If Me.ListBox1.ListIndex=-1 then Exit Sub

Me.ListBox1.RemoveItem(Me.ListBox1.ListIndex)

 

[vijay2482]

thanks for the reply

the values should be displayed in the listbox
and from the list item can be selected to delete

 

[MickG]

Hi, With a ListBox and Delete button on your Userform, you could use this:-
Code (1) to load the ListBox and code (2) to delete item seleted.

Private Sub UserForm_Initialize()
Dim Rng As Range
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
ListBox1.List = Rng.Value
End Sub

Private Sub CommandButton1_Click()
Dim Del As Integer
For Del = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(Del) Then
        ListBox1.RemoveItem ListBox1.ListIndex
    End If
Next Del
End Sub

Regards Mick

 

[vijay2482]

ADVERTISEMENT

i tried your first code, it worked perfect with a range in the excel sheet
but i dont have a range

i want the items to be entered directly in the listbox one after the otherduring runtime

 

[MickG]

Hi, Where are you getting the ListBox items from ??
Off the sheet or hard coded in code !!
Mick

 

[vijay2482]

not from sheet nor hardcode.
im getting from a textbox.

thanks for your help.
i have sorted out and now it works fine

Private Sub Add_Click()
ListBox1.AddItem TextBox2.Value
TextBox2.Value = ""
End Sub
Private Sub Remove_Click()
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

hope this helps someone else

 

[Kenneth Hobson]

This lets you add more than one item if you set TextBox1.Multipline = True.

Private Sub CommandButton1_Click()
  Dim a, v
  a = Split(TextBox1.Value, vbCrLf)
  With ListBox1
    For Each v In a
      .AddItem v, .ListCount
    Next v
  End With
  TextBox1.Value = vbNullString
End Sub

Private Sub CommandButton2_Click()
  With ListBox1
    If .ListIndex < 0 Then Exit Sub
    .RemoveItem .ListIndex
  End With
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  CommandButton2_Click
End Sub