Userform data- perhaps like find/replace?

[LiLi1]

I have a user form with several entry fields...employee name, shift worked, supervisor they report to etc.

I have a workbook sheet containing 2 groupings of columns.One grouping has 4 columns and then 2 blank columns and another grouping had 3 columns. Each grouping relates to a departmental group.

I want to be able to use the user form and alter (i.e. replace) pre-existing data on the worksheet or to add an new employee to one of the column groupings based on entries to that userform.

Is there a website or some basic examples of how to locate data and change it ...if someone can point me in the right direction that I can play around with. I tried googling several keywords but just kept finding how to set-up userforms. Thanks in advance once again... as a complete beginner to vba everyone has been so helpful!

Something like

....find employee x on the worksheet that equals the employee name entered in text box y from user form and change value of cell that is two cells to the right of that cell to the value that is from text box 1 on user form.

...or find next blank cell in column x and add data from user form box z (i.e. new employee name) to blank cell and add add from user box 2 to one cell to right of that etc.

[LiLi1]

I changed the worksheet to remove the department groupings and just stacked them on top of each other to ease searching and to standardize the data.
I found something sort of similiar on google about using user forms for what I am trying to and tried to tweek it to my situation. Here's what I am playing with so far. I get a compile error on this line: Set ws = Worksheet("Individuals on Report")

Please Login or Register  to view this content.

[Domski]

It's worksheets not worksheet even if there's just one you're referring to.

Dom

[LiLi1]

Thanks Dom...I fixed the wording to state worksheets. That removes the compile error.

The code now stops here on this line:

Set c = Find.IndividualNameEntry.Value

The error I receive is Object required (Error 424).

Thanks

[Domski]

Hi,

I've popped together a basic working example of what I think you might be getting at.

Hope it helps,

Dom

[LiLi1]

Exactly what I was looking for! Vastly appreciated! The message box I tried to add didn't work but I can play with that.
When it comes to this part of the code: ' if no match is found add the name and value to the bottom of the list.
Is there a way I can add a user prompt asking them if they would like to add the individaul to the report or cancel the running of the program? Is anything like that possible?

Please Login or Register  to view this content.

[LiLi1]

I fixed the message box the ending of the code now looks like this.

Please Login or Register  to view this content.

[Domski]

Not a problem, glad it helped.

This is how you can prompt whether to add the new name or not:

Please Login or Register  to view this content.

Dom

[LiLi1]

Prompt worked perfectly and I added the code for all of the changes (supervisor, shift etc.) now on the user form. The entire form works exactly correctly and I am sure will be a welcome received form by the person who runs this montly report so they no longer need to manually update the worksheet for several hours at the end of each month.

Once again thanks for the help!