VBA/Macro to delete cell values if equal to another cell

Hello and thank you for any help that you can give me.

So i would like a macro that would delete cell values from column A when I enter a value (I use a scanner which when a bar code is scanned it automatically hits enter) in cell D1

After that to delete the cell D1 and go back to it so I can scan another one in.

Basically I ship some Items and every day I export a list of order numbers (which can contain duplicates because one order may have more than on package but still have the order number) and i would like an easier way of making sure that all the orders have been processed.

Also is it possible to have a message box appear if the value of the scanned order is not in column A as this my becuase it was missed the day before or it is one to be processed for the next day.

Is this possible or would another way be required.

Untitled.png

as an example of the layout

I know a little VBA as i would eventually the D1 and put it on another sheet and after it if finished bring all the missing orders onto anther sheet also to make it more user friendly as I am not always the one doing it.

Once again thank you for any help that you can offer

as you are messing up with data, copy sheet1 to sheet2 also to preserve the data is something goes wrong

suppose data in sheeet is like this

1
2
3
4
5


now right click the tab of sheet1 and click view code.
in the window that comes up copy this EVENT CODE

Please Login or Register  to view this content.

now type in D1 some number existing in column A or not and see what happens

if the D1 value exists in col A that entry in columA will be cleared
if what you type in D1 is not available in column A the a message will pop up
click ok