Проблема с кодом VBA для поиска записей.требуется во время выполнения ошибка 424 объекта

Question

У меня проблема с записью поиска на листе, отображаемой в текстовом поле или в Combobox, но я получаю сообщение об ошибке, так как во время выполнения требуется 424 объекта.Не могли бы вы помочь мне с этим.

Private Sub CommandButton1_Click()
    Dim x As Long
    Dim y As Long
    x = ThisWorkbook.Sheets("Products").Range("A" & Row.Count).End(xlUp).Row
    For y = 2 To x
        If Sheets("Products").Cells(y, "A").Text = TextBox11.Text Then
            TextBox1.Text = Sheet2.Cells(y, "B")
            TextBox2.Text = Sheet2.Cells(y, "C")
        end if
    next y
end sub

Answer 1

Это должно быть Rows.Count ...

x = ThisWorkbook.Sheets("Products").Range("A" & Rows.Count).End(xlUp).Row

Хотя, вы должны квалифицировать вашу ссылку на Rows ...

With ThisWorkbook.Sheets("Products")
    x = .Range("A" & .Rows.Count).End(xlUp).Row
End With