How can I select the next item and next item and next item?

[VBE313]

Private Sub CommandButton1_Click()
For I = 0 To Me.ListBox4.ListCount - 1
If InStr(UCase(ListBox4.List(I, 1)), UCase(sFind)) > 0 Then
Me.ListBox4.TopIndex = I + 1
Me.ListBox4.ListIndex = I + 1
Exit For
End If
Next I
End Sub

How can I replace the "I + 1" with a variable to add 1 after every click?

 

[Rick Rothstein]

What exactly is your code supposed to be doing?

 

[Fluff]

Try

Private Sub CommandButton1_Click()
Static k As Long
sFind = Me.TextBox4.Value
For i = k + 1 To Me.Listbox4.ListCount - 1
If InStr(UCase(Listbox4.List(i, 1)), UCase(sFind)) > 0 Then
   Me.Listbox4.TopIndex = i
   Me.Listbox4.ListIndex = i
   k = i
   Exit For
End If
If i = Me.Listbox4.ListCount - 1 Then k = 0
Next i
End Sub

 

[VBE313]

Rick,

After It searches what I typed in a textbox, I want this command button to find the next line that matches, and then the next line and next line.

 

[VBE313]

Fluff,

Thanks again! This selects the next items on the list. I just need to add a better filter.

 

[Fluff]

You're welcome & thanks for the feedback