Скачать или смотреть Track inventory with barcodes in Excel

Track inventory with barcodes in excel. Record purchases and sales with barcodes. Keep your inventory up to date.
All templates, with code, are available for purchase for $50 USD
https://www.easyexcelanswers.com/temp...

Click this link to check out my one-on-one training http://www.calendly.com/easyexcelanswers

For more help visit my website www.easyexcelanswers.com or email me at [email protected].

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting http://www.calendly.com/easyexcelanswers

I am able to provide online help on your computer at a reasonable rate.

Turn your smartphone or tablet into a powerful POS
https://loyverse.com/


https://www.amazon.com/shop/barbhende...

I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83


I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelan...

Follow me on Facebook
  / easyexcel.answers  

TWEET THIS VIDEO    • Track inventory with barcodes in Excel  

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting


*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.
Templates with code are available for purchase for $50 USD
https://www.easyexcelanswers.com/temp...

How to insert VBA code in Excel    • How to insert VBA code in Excel  

code for scan sheet
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("C2")) Is Nothing Then

Call receive
Application.EnableEvents = True
End If

End Sub
Sub receive()
Dim barcode As String
Dim rng As Range
Dim rown, lrow As Long
Dim qty As Long


barcode = Sheet3.Cells(2, 3)
qty = Sheet3.Cells(2, 2)
Sheet2.Activate
'is there a barcode
If barcode = "" Then Exit Sub
If barcode (does not equal)"" Then
'search for the barcode on the inventory sheet.
Set rng = Sheet2.Columns("A:A").Find(what:=barcode, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
searchdirection:=xlNext, MatchCase:=False, SearchFormat:=False)
' send an error message if you do not find it
If rng Is Nothing Then
MsgBox "number not found"
GoTo ende
Else
'determine which row has the barcode
rown = rng.row

If qty (is greater than)= 1 Then
'add the qty to the columns
Sheet2.Cells(rown, 9).Value = Sheet2.Cells(rown, 9).Value + qty
Sheet2.Cells(rown, 8).Value = Sheet2.Cells(rown, 8).Value + qty
'copy the description information
Sheet2.Range(Cells(rown, 2), Cells(rown, 7)).Copy
Sheet3.Activate
'paste it on the lastrow of the scan sheet
lrow = Sheet3.Cells(Rows.count, 3).End(xlUp).row + 1
Sheet3.Cells(lrow, 3).PasteSpecial
'enter the barcode and the qty information
Sheet3.Cells(lrow, 1).Value = barcode
Sheet3.Cells(lrow, 2).Value = qty
'enter the date and time for when this happened
Sheet3.Cells(lrow, 9) = Date & " " & Time
Sheet3.Cells(lrow, 9).NumberFormat = "m/d/yyyy h:mm:ss AM/PM"
GoTo ende
End If
If qty (is less than)1 Then
'add the qty to the columns
Sheet2.Cells(rown, 10).Value = Sheet2.Cells(rown, 10).Value + Abs(qty)
Sheet2.Cells(rown, 8).Value = Sheet2.Cells(rown, 8).Value + qty
'copy the description information
Sheet2.Range(Cells(rown, 2), Cells(rown, 7)).Copy
Sheet4.Activate
lrow = Sheet4.Cells(Rows.count, 3).End(xlUp).row + 1
'paste it on the lastrow of the outgoing sheet
Sheet4.Cells(lrow, 3).PasteSpecial
'enter the barcode and the qty information
Sheet4.Cells(lrow, 1).Value = barcode
Sheet4.Cells(lrow, 2).Value = Abs(qty)
'enter the date and time for when this happened
Sheet4.Cells(lrow, 9) = Date & " " & Time
Sheet4.Cells(lrow, 9).NumberFormat = "m/d/yyyy h:mm:ss AM/PM"
GoTo ende
End If
End If

End If

ende:
'turn off the marching ants
Application.CutCopyMode = False
Sheet3.Activate
'clear the cells on the scan sheet
Sheet3.Cells(2, 2).ClearContents
Sheet3.Cells(2, 3).ClearContents
'select the qty cell on the scan sheet
ActiveWorkbook.Sheets("scan").Activate
Sheets("scan").Range("B2").Select '(and activate)
End Sub