VBA to delete rows based on user input

Apologies, I was not aware of the tags. I am not sure if I did it correctly but I did as I understood from your instructions.
Thank you so much.

Hi!

I have this code to delete an employee based on the employee id a user inputs. I placed a note on the message box because I cannot figure out how I can delete several employee id inputs all at once.

Can anybody help me add a command to delete multiple rows based on user input of employee id's (separated by semicolon)? It would also be cool to have a confirmation message like:

The following employee id's were deleted from the list:
123
456
789

The following employee id's were not found:
654
321

Please Login or Register  to view this content.

Thank you so much for all your help!

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Hello Roux11,


Try the below code

Please Login or Register  to view this content.

Glad to help & thanks for reporting back. If the suggested solution takes care of your request, please mark this thread as 'SOLVED' using Thread Tools from the top menu & thanks for the reps

Sure ... Line added in red below

Please Login or Register  to view this content.

I'm not able to replicate your file to solve this issue … Is the above worksheet event code placed in the same sheet where the DeleteEmployees macro is working ? What is the name of that sheet. Also, is Sheet3 a third sheet ? Please provide a small sample file to see the issue with the exact sheet names as per your file just with dummy data

Try to put the red line in your worksheet event code & see if that solves the problem

Please Login or Register  to view this content.

You don't need the copy, you can assign the value directly like below

Cells(Target.Row, 4) = Range("j1").value