PDA

View Full Version : Worksheet, Warehouse work attendance with barcode scanning



totoroshka
09-06-2015, 09:50 PM
Hello.
I am new here, your kind assistance would be very appreciated.
I've created and uploaded a worksheet with comments, please kindly check it out, it explains a whole idea.
Any kind of help would be useful, thanks in advance.

Sixthsense..
09-07-2015, 03:25 AM
Copy the below code and do right click on sheet tab and select view code and paste it.

Close the VBA window (Alt+Q to close VBA window) and return to that sheet and check.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count = 1 Then
If Target.Value <> "" Then
Application.EnableEvents = False

If Target.Column = 1 Then
Range("C" & Target.Row).Select
Range("E" & Target.Row).Value = Now
ElseIf Target.Column = 3 Then
Range("F" & Target.Row).Value = Now
Range("A" & Target.Row + 1).Select
End If

Application.EnableEvents = True
End If
End If

End Sub