Maybe this will get you started. It only checks the Bit # field. I don't know what the others relate to. Assign this to the search button.
Private Sub CommandButton1_Click()
Dim rData As Range
Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = False
If Me.TextBox3.Value <> "" Then
.Range("A3").AutoFilter Field:=4, Criteria1:=Me.TextBox3.Value
With .AutoFilter.Range
On Error Resume Next
Set rData = .SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rData Is Nothing Then
Sheets("Display").UsedRange.Clear
rData.Copy Sheets("Display").Range("A1")
End If
End With
.AutoFilterMode = False
End If
End With
Unload Search
Sheets("Display").Activate
Application.ScreenUpdating = True
End Sub
Bookmarks