Scan SN > search for match > put date/time

[jyndros]

Hi,

I'm totally new in Excel and VBA, so excuse me with my request to provide to me "as is ready" code.

What I have - an excel sheet with SNs in column e.g. A1 ~ A500, and names in column B1 ~ B500
What I want to achieve -
a) if scanned SN match some SN of range A1~A500 mark it as green + set date/time in corresponding cell in C row (arrive)
b) if scanned SN match some SN of range A1~A500 at 2nd time mark it as red + set date/time in corresponding cell in D row (leave)
To achieve it, we can setup some trigger somewhere in this or other sheet, e.g. in corresponding cell E put 1 after 1st match, 2 after 2nd.
c) is there possibility to prepare some worksheet with some input's filed/sheet etc? Cause I believe the variable (scanned SN) must be in
some cell e.g. X1, right? I don't want to see the X1, X2, etc scanned SNs, but rather some "GUI" which will do next:
- after 1st scan, if SN match will popup that "name from corresponding cell B" arrived message
- leave empty filed and wait/sleep 2 seconds before next scan
- after 2nd scan SN match will popup that "name from corresponding cell B" left message
- if SN do not match popup "please try scan again, or so" message
- if 3rd scan, maybe again arrived + set date/time to another cell?
- if 4th scan, maybe again leaved + set date/time to another cell?

Many thanks in advance for help.

Regards
jyndros

[alansidman]

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[jyndros]

Hi,

I found similar topic, so I just adjust vba a little and it works quite well.
Maybe one thing can be fixed - once scanned SN do not match SN in "Registered" sheet - it will be written to A column in "Attend" sheet anyway - this is because of:
'Write the Card SN to A column in Attend sheet:
Range("A" & SearchRange.Rows.Count + 1).Value = Item
But I can live with it if fix this is not so easy.

regards
jyndros