使用文本框搜索两个自动过滤列的任何部分

Question

我正在尝试使用文本框在两个自动过滤列（项目编号和项目名称）中的任何一个中搜索结果。我的代码如下;

Private Sub TextBox3_Change()

Application.Calculation = xlManual

 Application.ScreenUpdating = False
Selection.AutoFilter Field:=5, Criteria1:="*" & TextBox3.Value & "*", Operator:=xlOr

On Error Resume Next

If Range("B7:B1307").SpecialCells(xlCellTypeVisible).Count = 0 Then
Call ClearAllFilters

  ActiveSheet.Range("B7:B1307").AutoFilter Field:=5, Criteria1:="<>"

 Selection.AutoFilter Field:=6, Criteria1:="*" & TextBox3.Value & "*", Operator:=xlOr
 End If
     Application.ScreenUpdating = True
 Application.Calculation = xlAutomatic
 End Sub

我希望它在一列中查找，如果找不到结果，则需要在另一列中搜索。

感谢您的帮助！

Answer 1

我实际上刚创建了一个新列，它连接两列信息，然后搜索它 - 它工作正常。

我仍然有兴趣找出上述代码的错误。