How do I search the next column over list index?

[VBE313]

Sub TextBox4_Change()
sFind = Me.TextBox4.text
If Len(sFind) = 0 Then
Me.ListBox4.ListIndex = -1
Me.ListBox4.TopIndex = 0
Else
For I = 0 To Me.ListBox4.ListCount - 1
If InStr(UCase(ListBox4.List(I)), UCase(sFind)) > 0 Then
Me.ListBox4.TopIndex = I
Me.ListBox4.ListIndex = I
Exit For
End If
Next I
End If
End Sub

 

[Fluff]

How about

If InStr(UCase(ListBox4.[COLOR=#ff0000]List(i, 1)[/COLOR]), UCase(sFind)) > 0 Then

 

[VBE313]

Thanks Fluff!

 

[Fluff]

You're welcome & thanks for the feedback

 

[VBE313]

Fluff, would you know how to select the next match?

Thanks,

 

[Fluff]

Like

   For i = 0 To Me.ListBox4.ListCount - 1
      If InStr(UCase(ListBox4.List(i, 1)), UCase(sFind)) > 0 Then
         j = j + 1
         If j = 2 Then
            Me.ListBox4.TopIndex = i
            Me.ListBox4.ListIndex = i
            Exit For
         End If
      End If
   Next i

 

[VBE313]

Fluff, Thank you again! For some reason it only selects the next match, can I go to another match and another match? Thanks

 

[Fluff]

Not when you are running it from a Textbox change event.

 

[VBE313]

What if you run it through a command button?

 

[Fluff]

I now see you have started a new thread for this requirement using a command button.
All posts relating to selecting the next item must go on the other thread.