通过用户表单查找具有特定值的行，并将其复制/粘贴到另一张工作表

Question

我用8个文本框制作了一个用户窗体。当用户填写这些文本框时，将在另一张工作表中插入一行，其中包含不同的值。 （1行8列）。

我已经使另一个用户表单与“输入”用户表单相同。然后，用户应该能够在此用户表单中写入8个值之一，然后VBA应该找到包含该值的所有行并将该行复制到第三张纸上。

我该如何解决这个问题？

谢谢！

---

我已经尝试了以下代码，但是没有用：

Sheets("Rawdata").Select
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
'kommentar
        ThisValue = Cells(x, 1).Value
        If ThisValue = Me.TextBox1_1.Value Then
            Cells(x, 1).Resize(1, 33).Copy
            Sheets("Rapport").Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets("Rawdata").Select
        ElseIf ThisValue = Me.TextBox2.Value Then
            Cells(x, 1).Resize(1, 33).Copy
            Sheets("Rapport").Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets("Rawdata").Select
        End If
    Next x
End Sub

代码仅返回“编译错误：未定义变量”。

请帮助