Portable barcode scanner?

Find a worksheet using barcode scanner

• Yes, there is a sheet that has each member's name. There is a cell in the sheet that also contains the member's name. So I want to find and open the member's worksheet with the scanned barcode. After that, I want to find the cell in the worksheet with the last date entered in it, (which is the last date they were there), and then enter the current date in the field below it. It creates a running total of visits by date and deducts this from a total number of allotted visits. (I sort of have this part working already). ---------- FOLLOW-UP ---------- QUESTION: I have a barcode scanner that will read a barcode and then put that information into a cell in Excel. No special software is needed, and it is the same as manually typing the information into a cell or dialog box. I can also scan that information in the "Find what" field in the "Find and Replace" dialog box. I have a workbook with individual sheets for each of my members. When they come in with there member card, I would like to scan the barcode on the card, and havefind the sheet for that member. It will then do some other functions in the sheet that I can do with a macro. I can do this manually, but I would like to automate it because it is too time consuming. And if the scanner can actually trigger the macro, that would be even better. I hope I have given you enough information now. Answer: Not yet but this does help. So, you don't need to find DATA on a sheet; you just need to FIND a sheet, right. And what do you mean by FIND a sheet? Do you mean select it? And how does each member's sheet relate to that member? Example, if I am memeber1 then is there a sheet named member1? ANSWER: OK, you now introduce more info but what you don't tell me now is WHAT part(s) you already have worked out. Regardless, ASSUMING that Sheet1 and cell A1 in Sheet1 (again you don't tell me this) will have the barcode of the last member who scanned in then: Dim Sh As Worksheet Dim ScanWS As Worksheet Dim ScannedRange As Range Dim FoundMember As Boolean On Error GoTo Err FoundMember = False Set ScanWS = ActiveWorkbook.Sheets("Sheet1") Set ScannedRange = ScanWS.Range("A1") For Each Sh In ActiveWorkbook.Sheets If Sh.Name = ScannedRange Then FoundMember = True Sh.Select Exit For End If Next Sh If FoundMember = False Then MsgBox "No sheet found for member " & ScannedRange End If Exit Sub Err: MsgBox "An error occurred while looking for the scanned member's sheet" ---------- FOLLOW-UP ---------- QUESTION: One thing I find very interesting about your responses, you were critical of the lack of necessary information I provided to you, saying that you don't know what I don't know, etc., about the issue, but you are doing the same thing. You are assuming that I know what information you need for you to help. Instead of being critical, you could have simply told me what information you needed to resolve the issue instead of assuming I know and that I am withholding it. Marc

• Answer:

  You're welcome. Perhaps I am but in order for me to help then the more I know the better I am to help you as I explained in one of my replies. And if you don't know what information I need to help about YOUR project then how could I possibly know what information would be needed. I thought I made it clear that the more information that you can give me the better. Sorry, you took it as being critical.