Я создаю систему входа / выхода. Моя функция выхода работает нормально, и под этим я подразумеваю, когда я ввожу данные в два текстовых поля и нажимаю commanbutton1, эта информация сохраняется в журнале с отметкой времени на рабочем листе 1.
Я хочу создать функцию «входа в систему» для commandbutton2, в которой, если два текстовых поля (номер оператора и номер детали) совпадают с тем, что есть в журнале (рабочий лист 1), то в этой соответствующей строке добавить метку времени в следующий столбец. Это будет означать, что кто-то вошел в систему. Ниже указано, что у меня есть для кода VBA.
Private Sub CommandButton2_Click()
Dim rng As Range
On Error Resume Next
Set rng = Worksheets("SignOutIn").Range("D:E").Find(what:=textbox1.Text Xor textbox2.Text)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "No Match Found. Please try again."
Else
If Intersect(Target, Range("D11:E100")) Is Nothing Then Exit Sub
Range("M" & Target.row) = Date + Time
End If
textbox1 = ""
textbox2 = ""
End Sub
Изображение для справки: