PDF download Download Article PDF download Download Article

Do you need a simple POS (point of sale) system for your small retail shop? With this method, you can manage the following facilities without special software or expensive equipment:

  • Issue a sales bill using barcode
  • Manage purchases
  • Control inventory
  • Day end and month end stock balance
  • Daily sales
  • Daily purchases
  1. 1
  2. 2
    Create a setup page with these headings, setup your stock items
    Advertisement
  3. 3
    Create a bill sheet:
    • Create a sheet according to this format and give the below formula to each row and create macros with below codes.
    • Line: =IF(C5="","",B4+1)
    • Code: Create a list box link with setup page item code and name. when you connect a bar code reader with bar code sticker details will auto pick.
    • Description: =I4
    • Qty : this column you have to enter manually according to customer purchase qty.
    • Price: =IF(E4="","",VLOOKUP(C4,al,5,0)*E4)
      • macro for Save bill
    • Create a button called Save bill and copy this code: You can download this file form file
    • Sub Dayendsales()'
    • 'Dayendsales Macro
    • Sheets("Tsales").Select
    • Columns("G:G").Select
    • Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    • Range("E2:E255").Select
    • Selection.copy
    • Range("G2").Select
    • Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      =False, Transpose:=False
    • Sheets("sales").Select
    • Range("B3:D1572").Select
    • Application.CutCopyMode = False
    • Selection.ClearContents
    • Range("D3").Select
    • End Sub
    • Sub DayendPurchases()'
    • ' DayendPurchases Macro'
    • Sheets("Tpurchase").Select
    • Columns("F:F").Select
    • Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    • Range("D2:D643").Select
    • Selection.copy
    • Range("F2").Select
    • Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      =False, Transpose:=False
    • Application.CutCopyMode = False
    • Sheets("purchase").Select
    • Range("C3:D625").Select
    • Selection.ClearContents
    • Range("E3").Select
    • End Sub
    • Sub SaveBill()'
    • ' SaveBill Macro'
    • Application.Run "'shop sales control.xls'!copy"
    • Application.Run "'shop sales control.xls'!SaleReplace"
    • End Sub
    • Sub DayEnd()'
    • ' DayEnd Macro
    • End Sub
  4. 4
  5. Advertisement

Community Q&A

Search
Add New Question
  • Question
    How does this work with a scanner and bar codes?
    Community Answer
    Community Answer
    A scanner replicates keyboard entry. Instead of entering all the barcode digits on the keyboard, the scanner reads them and enters them for you.
Ask a Question
200 characters left
Include your email address to get a message when this question is answered.
Submit
Advertisement

Video

Tips

Submit a Tip
All tip submissions are carefully reviewed before being published
Name
Please provide your name and last initial
Thanks for submitting a tip for review!
Advertisement

About This Article

Luigi Oppido
Co-authored by:
Computer & Tech Specialist
This article was co-authored by Luigi Oppido. Luigi Oppido is the Owner and Operator of Pleasure Point Computers in Santa Cruz, California. Luigi has over 25 years of experience in general computer repair, data recovery, virus removal, and upgrades. He is also the host of the Computer Man Show! broadcasted on KSQD covering central California for over two years. This article has been viewed 205,895 times.
474 votes - 69%
Co-authors: 23
Updated: May 30, 2024
Views: 205,895
Categories: Retail Sales Skills
Thanks to all authors for creating a page that has been read 205,895 times.

Did this article help you?

Advertisement