How to I automatically move cells (A1, B1, A2, B2) using a barcode scanner and also record the time of data entry

[KeriM]

How to I automatically move cells (A1, B1, A2, B2) using a barcode scanner and also record the time of data entry? To give more clarity, I work in a warehouse and I want the staff to sign out for their handheld devices. Column A will contain their names, and Column B will contain the device name, Column C will need to have the time of signing in, Column D will need to have the department

 

[CsJHUN]

Hi and welcome a-board.
Assuming you have something like this alread beacuse you want to use barcodes:

Munkafüzet1
	A	B	C	D	E	F	G	H	I	J	K
1	Name	device	timestamp	dept			name barcode	names	dept	Device barcode	Device
2							1	John	dept1	1	Dev1
3							2	Jhon	dept1	2	Dev2
4							3	Jnoh	dept2	3	Dev3
5							4	Jhno	dept2	4	Dev4
Munka1

I would do a userform like this:

green = textbox; yellow = labels; purpleish =button

And the userform code:

Private Sub btn_apply_Click()
lrc = Range("C" & Rows.Count).End(3).Row + 1
Range("A" & lrc).Value = lbl_name_result.Caption
Range("A" & lrc).Value = lbl_device_result.Caption
Range("A" & lrc).Value = Format(Now, "yyyy-mm-dd hh:nn:ss")
Range("A" & lrc).Value = lbl_dept_result.Caption

lbl_dept_result.Caption = ""
lbl_device_result.Caption = ""
lbl_name_result.Caption = ""
Application.EnableEvents = False
tb_device_barcode.Value = ""
tb_name_barcode.Value = ""
Application.EnableEvents = True

End Sub

Private Sub tb_device_barcode_Change()
On Error Resume Next
lri = Range("J" & Rows.Count).End(xlUp).Row
d_name = Range("J1:J" & lrg).Find(tb_device.Text, lookat:=xlWhole).Offset(0, 1).Value
lbl_device_result.Caption = d_name
On Error GoTo -1
lbl_timestamp.Caption = Format(Now, "yyyy-mm-dd hh:nn:ss")
End Sub

Private Sub tb_name_barcode_Change()
On Error Resume Next
lrg = Range("G" & Rows.Count).End(xlUp).Row
u_name = Range("G1:G" & lrg).Find(tb_name.Text, lookat:=xlWhole).Offset(0, 1).Value
dept_name = Range("G1:G" & lrg).Find(tb_name.Text, lookat:=xlWhole).Offset(0, 2).Value
lbl_name_result.Caption = u_name
lbl_dept_result.Caption = dept_name

On Error GoTo -1
End Sub