Блог

У меня есть форма пользователя с текстовым полем, в котором я хочу ввести число с помощью сканера и вернуть значение с листа. Сканер имеет автоматический ввод, поэтому я попробовал это сделать, но при запуске появляется ошибка с информацией о последнем входе.

 Private Sub TxtBoxFind_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Dim find_id As String
        Dim LastRow As Integer
        find_id = (TxtBoxFind.Text)
        LastRow = Worksheets("data").Cells(Row.Count, 1).End(xlUp).Row
        
        For i = 2 To LastRow
            MsgBox LastRow
            If Worksheets("data").Cells(i, 1).Value = find_id Then
            TxtBoxResult.Text = Worksheets("data").Cells(i, 2).Value
        End If
        
        Next
    End If
End Sub