Help with Multiple IF to copy info from specific cells to another workbook conditonal

Hi
In a workbook called Client List for all FMP workers I need the following to happen.

If a 1 entered into the B column
Then if 1 entered into the 18 column
Then copy information from the A column of the same row to the next available cell in the 7 row on the first worksheet of another workbook called IM Client Data new template and the information from the F1 cell into the 9 row below the previous info. (The both workbooks are opened at the same time when either is opened)
Then if
If a 1 entered into the C column
Then if 1 entered into the 18 column
Then copy information from the A column of the same row to the next available cell in the 7 row on the second worksheet of another workbook called IM Client Data new template and the information from the F1 cell into the 9 row below the previous info.
Then If
If a 1 entered into the D column
Then if 1 entered into the 18 column
Then copy information from the A column of the same row to the next available cell in the 7 row on the Third worksheet of another workbook called IM Client Data new template and the information from the F1 cell into the 9 row below the previous info.
Then If
If a 1 entered into the E column
Then if 1 entered into the 18 column
Then copy information from the A column of the same row to the next available cell in the 7 row on the forth worksheet of another workbook called IM Client Data new template and the information from the F1 cell into the 9 row below the previous info.

The following code copies the information from the whole row if a 1 is entered into the 21 column and pastes it into the next available row of the closed worksheet and then deletes the row from the original page and then if a 1 is entered into the 19 column the row is copied to the DHS Client List worksheet.

This code works fine just need to add the above to it

Please Login or Register  to view this content.

If someone is able to help it would be greatly appreciated.
Thanks, oldboots

Hi xladept,
Thanks for your help. I copied and pasted the code you wrote and it is having a couple of errors in it. I ran your code in the first worksheet of the workbook "Client List for all FMP Workers" the sheet name is "Judi" You can see the code in the next three pages works fine. in the other three pages If you enter enter a 1 into the 21 column it cuts the row and places it into the next available row of the closed page. if you enter a 1 into the column it copies the row into the DHS Client List page. I have attached the two workbooks for you to see how it works. If you are able to have a look at the two workbooks and then what I wrote above hopefully it will make sense.

I look forward to your reply,
regards, oldboots

Hi xladept,

Please forgive my for being an idiot. Not copying all the code what can I say, you just got to laugh

I have copied the whole routine now and it still has a couple of errors. If you look at the first section of code that I posted at the top of the post you can see that if a 1 is entered into the 21 (U) Column it then copies the whole row and places the information into the worksheet named Closed on the next available row and then deletes the original row. Then the code goes on and if a 1 is entered into the 19 (S) column then it copies the row into the worksheet named DHS Client List so that the information is in both worksheets. This is all in the workbook named "Client List for all FMP Workers". You can see that the code runs on the first four worksheets.

The next part is to copy information from the "Client List for all FMP Workers" to the "IM Client Data new template" if you look at the worksheet names of the first four worksheets in the "IM Client Data new template" workbook you will see that they are the same as the B, C, D & E columns of the first four worksheets of the "IM Client Data new template" workbook. What happens is a 1 is entered into either the B, C, D, or E column that then indicates which worksheet the information gets copied into in the "IM Client Data new template" workbook. The information gets copied when a 1 is entered into the 18 column. If a 1 is not entered into the 18(R) column then nothing happens. When the 1 is entered then The information that needs to get copied is from the 1 or (A) column of the "Client List for all FMP Workers" workbook to the 7 row of the appropriate page in the "IM Client Data new template" workbook and the information from the F1 cell to the 9 row of the same worksheet in the same column as the info in the 7 row.

I have attached the workbooks again for your information.

I hope that this make sense.
Thanks again.

Hi xladept,

Thanks again for your help. I have posted the whole routine again and it is not working, non of the actions worked. It appears that I am not doing a good job getting my message the right way, thank you for being patient with me. The first code that I posted when I started this thread is the code that works the events on the attachment "Screenshot 3". If we look at it one step at a time we can forget about this action as I have the code to make it work. If you look at the attachment "screenshot 1" It might explain what it is that I need to happen and then "Screenshot 2" show where the info needs to be pasted in the other workbook. These are screenshots of the area that the code needs to work for in the two workbooks that I previously attached.

Look forward to hearing from you soon.
regards, oldboots

Hi xladept,

I have tried all three routines and I'm afraid that they are all the same as I wrote above. The all create the one runtime error. I made sure that I copied the whole of the routines and saved them and then closed the workbook before opening it again to make sure that the code was saved correctly etc.

thanks, Oldboots

Hi xladept,

I don't know what it is that I am doing wrong I have downloaded the workbook and see where you put the code in workbook module. I saved the workbook into a test folder on my desktop as a macro enabled file and opened it up and it does nothing for me. I have been in through the developer tab into macro security and allowed all actions and added the folder on my desktop to trusted locations. So I am at a loss.

Sounds like you are having no problems with it, maybe we should all move to LA then it will work for us? Oh that's no good cost to much to get all out clients over there!

Don't know what to say.................

regards, Oldboots

Hi xladept,

well I included the sub that you sent into the workbook module at the start of the module saved it etc and I sorry to say It does not do one thing for me. I don't know what else there is, I am at a loss. It is not even coming up with an error that I can try and trace though.

Hope you have an idea.

regards, oldboots