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
www.easyexcelanswers.com/temp...
Click this link to check out my one-on-one training www.calendly.com/easyexcelanswers
For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting 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
loyverse.com/
www.amazon.com/shop/barbhende...
I use a Blue condenser Microphone to record my videos, here is the link
amzn.to/37gyyGa
Check out Crowdcast for creating your webinars
app.linkmink.com/a/crowdcast/83
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy.com/easyexcelan...
Follow me on Facebook
/ easyexcel.answers
TWEET THIS VIDEO • Track inventory with b...
Follow me on twitter
easyexcelanswers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
kzitem.info_cs_p...
*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
www.easyexcelanswers.com/temp...
How to insert VBA code in Excel • How to insert VBA code...
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
Негізгі бет Track inventory with barcodes in Excel
Пікірлер: 36