.
Here is a similar project :
Private Sub cmdClearme_Click()
Clear
End Sub
Sub Clear()
txtSearch = ""
Me.lstData.Clear
txtSearch.SetFocus
End Sub
Private Sub cmdSearch_Click()
Dim lr As Long, x As Long, j As Long, arr As Variant, sn As Variant
With Sheets("Data")
lr = .Range("B" & Rows.Count).End(xlUp).Row
arr = .Range("B9", "I" & lr)
ReDim sn(1 To UBound(arr), 1 To 7)
For x = 1 To UBound(arr)
arr(x, 8) = arr(x, 1) & arr(x, 2) & arr(x, 3) & arr(x, 5) & arr(x, 6) & arr(x, 7)
Next
j = 0
For x = 1 To UBound(arr)
If InStr(1, arr(x, 8), txtSearch) > 0 Then
j = j + 1
sn(j, 1) = arr(x, 1)
sn(j, 2) = arr(x, 2)
sn(j, 3) = arr(x, 3)
sn(j, 4) = arr(x, 4)
sn(j, 5) = arr(x, 5)
sn(j, 6) = arr(x, 6)
sn(j, 7) = arr(x, 7)
End If
Next
End With
Me.lstData.List = sn
End Sub
Bookmarks