I need to code a button to save and update data from a user form into multiple worksheets

Hi,

I am new to this site and have never really used vb before. I am trying to make a user form where the user can enter data that then gets saved (imported) into multiple sheets of the excel workbook. The user form has four tabs; three pertaining to independent contractors that are hired and one that pertains to the client and project info. The user can go in and search for a project by project number and the form will fill in the textboxes with the data that is saved out in the worksheets. I am trying to create a save button that will either add a new line of data if the project, client or contractors are new or overwrite the current data if the user changes an of the information. I originally had an export button and a separate update button but could never get the update button to work. I then decided to just have one save button. the code partially works but it takes a while to process and it doesn't complete the code that is there. I have no idea what I'm doing or what I'm doing wrong. Please help!!


CES form - Copy.xlsm

Thank you for you quick response!

I still don't know why my code isn't working for my save button. It won't go through all the code and sometimes it works in some examples but not in others. Is it interfering with other blocks of code? I'm so frustrated with this. Please help me if you can, I will be so grateful!!

Awesome! Thanks!

Well, once you activate the user form and enter the necessary data the code is supposed to 1) check to see if this is a new project or an existing project; if it is new then the the project information gets added to a new row of the "Project Database" worksheet, if it is an existing project it is supposed to find the project (using the project number to search) and overwrite/update the data. 2) check to see if the client or any of the independent contractors are new or existing (the code uses the client number to search through the list of clients on the "clients" worksheet or it uses the contractors EIN/SSN to search for the contractors information), if it exists it should update the information in the corresponding worksheets ("Clients" or "contractors database") if it is a new client or contractor it is supposed to add the info to the next empty row. At the end of the process a message box should pop up that says "project x has been saved".

when running certain examples the code will partially work, it doesn't give me any error messages or indicate to me where it stopped processing the code. for example, if I enter completely new information - new project number, new client or existing client, all new contractors - the code will work, but if some of the data is existing and some of the data is new it doesn't work. I can't figure out why. Maybe if you run it a few times and enter your own data and check the spreadsheets to see what worked and what didn't you would know what is happening. I just don't have the knowledge to know why it works sometimes and not others.

I did notice that I left 'txt' in front of ICNumber, ICNumber2 and ICNumber3....it needs to be removed, didn't fix anything though. For example, the last line below, the txt needs to be removed

Set wsCD = Sheets("Contractors Database")
ICNumber = txtICNumber.Text
lrCD = wsCD.Range("A" & Rows.Count).End(xlUp).Row
For y2 = 2 To lrCD
If wsCD.Cells(y2, 1).Text = txtICNumber Then