+ Reply to Thread
Results 1 to 8 of 8

Automate barcode scanning into an inventory sheet to add to actual inventory and subtract

Hybrid View

  1. #1
    Registered User
    Join Date
    12-22-2020
    Location
    United States
    MS-Off Ver
    Microsoft 365
    Posts
    8

    Automate barcode scanning into an inventory sheet to add to actual inventory and subtract

    Good Evening All,

    I am by no means very knowledgeable at Excel but I'm giving it everything I have to learn and understand it.

    I would like to have two cells on my sheet that I scan into based on if I'm receiving finished goods or shipping finished goods.

    If I'm receiving finished goods I would like the sheet to add to the actual inventory.
    If I'm Shipping finished goods i would like to subtract from actual inventory

    I would also like to know if after the inventory has changed if the cell that I would be scanning to can reset itself to scan another or if i would need to integrate a reset/delete button to scan another?

    Any and all help would be very much appreciated.

    Thank You
    Attached Files Attached Files
    Last edited by Robert7474; 12-28-2020 at 03:05 PM.

  2. #2
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,387

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    .
    Here are two example projects that I saved from this Forum (I believe).

    I don't have any first hand knowledge of either ... they were simply saved in my tool box for future reference. Hopefully they will give you a good
    start on your project.

    
    
    Sub ScanIN()
    Dim CS As String
    
    CS = CurStat(Range("Sel_Item"))
    If CS = "Error" Then
        MsgBox "Error: Item Not Found", vbOKOnly + vbCritical, "Item Not Found"
        Exit Sub
    ElseIf CS = "In" Then
        MsgBox "Item is already checked in.", vbOKOnly + vbInformation, "Item Already in Stock"
    End If
    
    ScanIt "In"
    End Sub
    
    Sub ScanOut()
    Dim CS As String
    
    CS = CurStat(Range("Sel_Item"))
    If CS = "Error" Then
        MsgBox "Error: Item Not Found", vbOKOnly + vbCritical, "Item Not Found"
        Exit Sub
    ElseIf CS = "Out" Then
        MsgBox "Item is already checked out.", vbOKOnly + vbInformation, "Item Already Checked Out"
    End If
    ScanIt "Out"
    End Sub
    Attached Files Attached Files

  3. #3
    Valued Forum Contributor rollis13's Avatar
    Join Date
    01-26-2012
    Location
    Cordenons
    MS-Off Ver
    Excel 2016 32bit - Win 11
    Posts
    935

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    Oh, I'm late, but since I prepared a macro you can have try. Copy the macro to the 'Inventory' sheet module; it detects the event Worksheet_Change.
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim item   As Variant
        Dim srch   As String
        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
                Select Case srch
                    Case "$B$1"
                        item.Offset(0, 8).Value = item.Offset(0, 8).Value + 1
                    Case "$B$2"
                        item.Offset(0, 8).Value = item.Offset(0, 8).Value - 1
                End Select
            End If
    exitcode:
            Set item = Nothing
            Range(srch) = ""
            Range(srch).Select
            Application.EnableEvents = True
        End If
     End Sub
    Attached Files Attached Files
    Last edited by rollis13; 12-25-2020 at 02:55 PM.

  4. #4
    Registered User
    Join Date
    12-22-2020
    Location
    United States
    MS-Off Ver
    Microsoft 365
    Posts
    8

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    Thank You for the help to solve this problem i appreciate it very much Rollis13

  5. #5
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (both in England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2503 (Windows 11 Home 24H2 64-bit)
    Posts
    90,278

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    There were two people who offered help - not just one.

    If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.
    Ali


    Enthusiastic self-taught user of MS Excel who's always learning!
    Don't forget to say "thank you" in your thread to anyone who has offered you help. It's a universal courtesy.
    You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.

    NB:
    as a Moderator, I never accept friendship requests.
    Forum Rules (updated August 2023): please read them here.

  6. #6
    Registered User
    Join Date
    12-22-2020
    Location
    United States
    MS-Off Ver
    Microsoft 365
    Posts
    8

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    Thank You as well Logit I appreciate everything.

  7. #7
    Forum Expert Logit's Avatar
    Join Date
    12-23-2012
    Location
    North Carolina
    MS-Off Ver
    Excel 2019 Professional Plus - 2007 Enterprise
    Posts
    7,387

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    .
    Trust you found your answer. Have a great day and stay healthy !

  8. #8
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (both in England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2503 (Windows 11 Home 24H2 64-bit)
    Posts
    90,278

    Re: Automate barcode scanning into an inventory sheet to add to actual inventory and subtr

    Can you please mark the thread as solved - instructions in my post above. Thanks.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Help Setting Up Inventory Sheet to be used with a Barcode Scanner
    By atmclaurin in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 12-29-2020, 10:14 AM
  2. Inventory Barcode scanning
    By Vespasky in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 01-25-2020, 02:35 AM
  3. Inventory Barcode scanning
    By Vespasky in forum Excel Formulas & Functions
    Replies: 3
    Last Post: 01-25-2020, 01:58 AM
  4. Inventory, Barcode scanning
    By csntt30 in forum Excel General
    Replies: 1
    Last Post: 12-25-2018, 08:19 PM
  5. Barcode Inventory System - Running Inventory
    By b.dennis.79 in forum Excel General
    Replies: 2
    Last Post: 01-10-2013, 03:16 PM
  6. Barcode scanning inventory management with running totals
    By PGOIBOY in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 11-04-2011, 04:19 PM
  7. Excel 2007 : Barcode Inventory Sheet
    By bigstef in forum Excel General
    Replies: 8
    Last Post: 11-01-2011, 03:25 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1