Question

Sheet I want to pull information from This is where I want to information transfered我最近制作了一个搜索框，它从一张纸上提取信息，然后在另一张纸上复制/粘贴它。我看到的问题是，无论我在搜索框中有什么价值，复制的值都是我上次点击的值。当我逐步浏览我的代码时，我的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

搜索框Excel VBA

0 个答案: