搜索框Excel VBA

我最近制作了一个搜索框，从一张纸上提取信息，并将其复制/粘贴到另一张纸上。我看到的问题是，无论我在搜索框中有什么值，复制的值都是我上次单击的值。当一步一步地检查代码时，我的TextBox1.value与我想要带过来的项目是正确的，但我很难确定如何确保在单击“搜索”时，它将对位于搜索框中的项目执行代码。我将在下面附上我的代码，如果您有任何见解，将不胜感激

Sub CommandButton1_Click()

Dim search_value As String

Dim sheet_search As String

Dim sheet_paste As String

sheet_search = "Charlotte Gages"

sheet_paste = "Gages"

search_value = TextBox1.Value

Sheets(sheet_search).Select

If search_value = "" Then
MsgBox "This Gage does not exist"

Else


    Selection.EntireRow.Copy

    Sheets("Gages").Select

    ActiveCell.Select

    ActiveSheet.Paste

    Selection.Offset(1, 0).Select

    Sheets("Charlotte Gages").Select

    End If


End Sub

---

您使用的是表单控件还是ActiveX控件？您的代码没有搜索任何内容，只是从所选单元格复制了一行。我看不出

search\u value

如何合并到此宏中。只要你在文本框中键入任何内容，这个宏就会运行？我觉得我需要搜索值，因为如果没有，它只会复制上次选择的单元格，而不是我在文本框中键入的内容。你在搜索列吗？排？整个床单？更多的上下文会很有帮助，一张图片会是非凡的