Want to add a log for what barcode was scanned ,what scanned to ship/rec and a time stamp

[Robert7474]

Good Morning all,
Looking to add a receipt log on another sheet of what barcode was scanned, where it was scanned to with a date and time.

I appreciate any help

Thank You

[AliGW]

Does this differ from your Christmas Day thread?

https://www.excelforum.com/excel-pro...-subtract.html

If so, then you need to go back there and say thanks for the help. If not, this thread will be closed and you can continue there. Please advise.

Please update your forum profile: 10 is NOT an Office version.

[Robert7474]

It is different,
I did go back and give a big Thanks to Rollis?

[AliGW]

No - you didn't sign the thread off or mark it solved. Maybe you gave Rollis rep, but you ought to thank both members who responded in the thread itself.

[Robert7474]

I see, I apologize still learning Thank you

[AliGW]

Just remember the help you get is given completely for free - so acknowledge all those who offer it.

[Robert7474]

Done! Thank you for bringing this to my attention.

[AliGW]

Can you please manually mock up a few rows of data showing what you want. I'm not clear where it should be coming from.

[rollis13]

Hello to all.
@Robert7474, since you didn't explain much of how what you asked for was to be done, in the columns Received (C) and Shipped (B) I placed a "1". Feel free to change this with whatever you prefer. Here's the updated code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim item   As Variant
    Dim srch   As String
    Dim nrow   As Long                            '<= added

    If Target.Cells.Count > 1 Or Not Target.Address = "$B$1" And Not Target.Address = "$B$2" Then Exit Sub
    If Target.Value <> "" Then
        Application.EnableEvents = False
        srch = Target.Address
        Set item = Range("A6", Range("A" & Rows.Count).End(xlUp)).Find(Range(srch).Value, LookAt:=xlWhole)
        If item Is Nothing Then
            MsgBox Target & " is not inventoried."
            GoTo exitcode
        Else
            '------------ changed -------------
            With Worksheets("Scanned Log")
                nrow = .Range("D" & .Rows.Count).End(xlUp).Row + 1
                .Range("A" & nrow) = Target.Value
                .Range("D" & nrow) = Now()
                Select Case srch
                    Case "$B$1"
                        item.Offset(0, 8).Value = item.Offset(0, 8).Value + 1
                        .Range("C" & nrow) = "1"
                    Case "$B$2"
                        item.Offset(0, 8).Value = item.Offset(0, 8).Value - 1
                        .Range("B" & nrow) = "1"
                End Select
            End With
            '----------------------------------
        End If
exitcode:
        Set item = Nothing
        Range(srch) = ""
        Range(srch).Select
        Application.EnableEvents = True
    End If
    
End Sub

[Robert7474]

This is awesome Thank You So Much!!!

[rollis13]

Glad having been of some help here too .