Barcode inventory with different suppliers in Excel

Barcode inventory with different suppliers in Excel
Free templates and templates with code are available for purchase for $50 USD
https://www.easyexcelanswers.com/templates.html
Addition Templates may be available on request

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 easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

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

Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click https://sqlspreads.com/?pid=barbhenderson to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.

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

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/easyexcelanswers

Follow me on Facebook
https://www.facebook.com/easyexcel.answers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_panel?c=UCFH2kZykqt-VX5W9waJzYvQ&tab=2

*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.

How to insert VBA code in Excel https://youtu.be/AByFH0TN53M
Sub receive()
Dim barcode As String
Dim rng, rng1 As Range
Dim rown, lrow As Long
Dim qty, erow As Long
Dim curcnt, rown1 As Long
Dim vcol As Long
Dim cqty As Long
barcode = Sheet3.Cells(2, 3)

Sheet2.Activate
'is there a barcode
If barcode = "" Then Exit Sub
If barcode not equal "" Then
lrow = Sheet3.Cells(Rows.Count, 1).End(xlUp).row + 1
If Sheet3.Cells(lrow, 5).Value = "" Then
MsgBox "Please select vendor"
GoTo ende
End If
'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
End If
vendor = Sheet3.Cells(lrow, 5).Value
vcol = 4
For vcol = 4 To 16
If Sheet2.Cells(1, vcol).Value = vendor Then
GoTo addqty
End If
Next vcol
addqty:
qty = 1
'add the qty to the columns
Sheet2.Cells(rown, vcol).Offset(0, 1).Value = Sheet2.Cells(rown, vcol).Offset(0, 1).Value + qty
cqty = Sheet2.Cells(rown, vcol).Offset(0, 1).Value

'copy the description information
Sheet2.Range(Cells(rown, 2), Cells(rown, 3)).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
Sheet3.Cells(lrow, 6).Value = cqty
'enter the date and time for when this happened
Sheet3.Cells(lrow, 7) = Date & " " & Time
Sheet3.Cells(lrow, 7).NumberFormat = "m/d/yyyy h:mm:ss AM/PM"

GoTo ende
'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("incoming").Activate
Sheets("incoming").Range("C2").Select '(and activate)
End Sub

Видео Barcode inventory with different suppliers in Excel канала Barb Henderson