select item in listbox

[Av8tordude]

I'm using this code to insert the name in a textbox when I selected an item in a list box. Is it possible to type in a name in a textbox and and search and select the item listed in the listbox. I have 4 columns in the listbox and the names are listed in column(1)

cbName = ListBox1.Column(1, ListBox1.ListIndex)

 

[Domenic]

Try...

    Dim name As String
    name = TextBox1.Value
    
    Dim i As Long
    With ListBox1
        .ListIndex = -1
        For i = 0 To .ListCount - 1
            If UCase(.Column(1, i)) = UCase(name) Then
                .ListIndex = i
                Exit For
            End If
        Next i
    End With

Hope this helps!

 

[Av8tordude]

Perfect... Thank you!!!1

 

[DanteAmor]

Another way to select:

Private Sub CommandButton1_Click()
  Dim i As Long
  For i = 1 To ListBox1.ListCount - 1
    If LCase(ListBox1.List(i)) = LCase(TextBox1) Then ListBox1.Selected(i) = True
  Next

End Sub

 

[Av8tordude]

Hi Dante, I tried your code, but nothing was selected

 

[DanteAmor]

Thats weird!
Works for me!
Try this:

Private Sub CommandButton2_Click()
  Dim i As Long
  For i = 1 To ListBox1.ListCount - 1
    If LCase(ListBox1.List(i)) = LCase(TextBox1.Value) Then
      ListBox1.Selected(i) = True
      Exit For
    End If
  Next
End Sub

 

[Domenic]

Hi Dante,

Maybe you missed it, but the names are in the second column of the listbox, not the first one. Also, as I'm sure you know, the index for a listbox starts at 0, not 1. And, lastly, you might want to deal with situations where an item is already selected before the macro runs and the name doesn't exist in the listbox. In my example, if a name doesn't exist in the listbox, it de-selects any already selected item.

Cheers!

 

[DanteAmor]

Hi Dante,

Maybe you missed it, but the names are in the second column of the listbox, not the first one. Also, as I'm sure you know, the index for a listbox starts at 0, not 1. And, lastly, you might want to deal with situations where an item is already selected before the macro runs and the name doesn't exist in the listbox. In my example, if a name doesn't exist in the listbox, it de-selects any already selected item.

Cheers!

Thanks Domenic, you're right, typo error, it must start at 0.
But the OP said: "I have 4 columns in the listbox and the names are listed in column (1)"

That's why he doesn't find it, so it should be like this:

Private Sub CommandButton1_Click()
  Dim i As Long
  ListBox1.ListIndex = -1
  For i = 0 To ListBox1.ListCount - 1
    If LCase(ListBox1.List(i, [B][COLOR=#0000cd]1[/COLOR][/B])) = LCase(TextBox1) Then ListBox1.Selected(i) = True
  Next
End Sub

 

[Av8tordude]

Works great Dante! Thank you both for the help..Cheers

 

[DanteAmor]

Works great Dante! Thank you both for the help..Cheers

I'm glad to help you. Thanks for the feedback.