Originally Posted by
GEORGE PERRY
thank you very much sir, am a learner so any piece of project i see i try to practice.
am trying to create a POINT OF SALE with Excel but it seems my project is having problems when i run the application after writing the codes. So i will send you the application so that you review to see where am wrong in the codes because i cant get it.
I reformatted the macros using indents and blank lines to make it easier to read (for me at least)
It looks nice and I can see the 2 backup sheets, but on the POS sheet there didn't seem to be any actions
You might have the Items button call a macro that has a UserForm and probably a ListBox control show the 'database' of Items and a TextBox to enter quantity, etc.
Another approach might be to use a Double Click on Items. I added a simple example to my re-format
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range, rData As Range
Set rData = Me.Cells(1, 1).CurrentRegion
Set r = Target.Cells(1, 1)
If Intersect(r, rData) Is Nothing Then Exit Sub
With r.EntireRow
'actually put these where they go in your POS
MsgBox "Item ID = " & .Cells(1, 1).Value & vbCrLf & _
"Item Name = " & .Cells(1, 2).Value & vbCrLf & _
"Item Description = " & .Cells(1, 3).Value & vbCrLf & _
"Price = " & .Cells(1, 4).Value
End With
End Sub
AussieBear is correct that building a full blown POS is a lot to ask. If you have questions you can always come back and we'll be glad to help