Add and Remove Inventory with bar code scanner

[cthiesen21]

I am hoping I can get some help. I found a macro that other say works well that I would like to use, however I cannot get it to run. I paste it in and then the macro isn't there to choose to run. Attached is the basic rough draft of what I need.
The Macro that I found and wanted to use is below. I am running Excel 2010, not sure if that is the issue or if I am pasting it in wrong or what but its getting very frustrating. Any help would be very much appreciated!

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$4" 'add
If Target.Value <> "" Then
On Error Resume Next
Set xitem = Range("C8", Range("C" & Rows.Count) _
.End(xlUp)).Find(Range("A4").Value)
With xitem.Offset(0, -1)
.Value = .Value + 1
End With
On Error GoTo 0
If xitem Is Nothing Then
MsgBox "The item scanned is not on the list."
End If
Range("A4") = ""
Range("A4").Select
End If
Case "$C$4" 'remove
If Target.Value <> "" Then
On Error Resume Next
Set xitem = Range("C8", Range("C" & Rows.Count).End(xlUp)) _
.Find(Range("C4").Value)
With xitem.Offset(0, -1)
.Value = .Value - 1
End With
If xitem Is Nothing Then MsgBox Target & " cannot be found " _
& "and cannot be removed."
Range("C4") = ""
Range("C4").Select
On Error GoTo 0
End If
Case "$E$4" 'find
If Target.Value <> "" Then
On Error Resume Next
Set xitem = Range("C8", Range("C" & Rows.Count).End(xlUp)) _
.Find(Range("E4").Value)
If xitem Is Nothing Then
MsgBox Target & " was not found."
Range("E4").Select
End If
Range("E4") = ""
xitem.Select
On Error GoTo 0
End If
End Select
End Sub

[jaslake]

Hi cthiesen21

Welcome to the Forum!!

Firstly, you need to add Code Tags to your Code...it's a Forum Requirement.
Secondly, the Code needs to be in the Worksheet Module, not a General Module
Thirdly, the Code in the Workbook has a Title of

Please Login or Register  to view this content.

The Title needs to be

Please Login or Register  to view this content.

[timmatthews]

remove the private. private subs are hidden from the macro menu

[cthiesen21]

I am still not able to get it to work. I have tried both suggestions and I still cannot get the macro to appear in the list. Thanks for your help, I appreciate it a lot! I have attached the test case again with the changes to the worksheet module. I am sure I am making some stupid little mistake but I just cant figure out where.

Thanks again in advance for any assistance and my apologies for not posting the code in the correct way. I will make sure in the future to follow the posting rules.

-Chris

[timmatthews]

did you try wrapping the call in the click event for the button your making? i think your problem is you can't call the macro directly because it is asking for input "Target As Range"
not positive but in the file im currently testing i can't see

Please Login or Register  to view this content.

in my macro list. if i remove "Cancel As Boolean" it shows up. if you wrap it in the button call you'll still have to supply "Target As Range" in your call.

[cthiesen21]

hmm, not sure I understand, I am pretty good with excel but just recently started getting into macros so I am still pretty inexperienced with it. I know others have used the code as it is with no issues so I am just wondering maybe if I am pasting in the wrong spot and that is causing the issue? I have no idea.

[timmatthews]

i can't verify usage of this code as i run my barcode scanner in comm mode not keyboard wedge mode. the only thing i can say about the code as posted is it is a change event it shouldn't need to be fired manually by a button it should just fire when a change is detected.

[cthiesen21]

ok, cool. I will give it a try without "running" it. I really appreciate all of your help!!

[cthiesen21]

I can't thank you enough!!! It worked like a charm, I can't belive it was as simple as doing nothing..hahah. Thank you again for all of your help, this is going to make my life a lot easier!!!

[cthiesen21]

Now, how do I mark this issue as solved. Can't seem to find it?

[jaslake]

Hi Chris

Click on Thread Tools, Select "Mark as Solved"
You're welcome...glad I could help. Thanks for the Rep.