Code to search a cell for a value. If it is there, Copy and paste data from another sheet

Hi guys

I have two sheets I am working from.

If Cell D3 (In Sheet 1) has the word "Internet" as the value, I would like the VBA code to copy and paste the cells B2 and C2 from another sheet (Sheet 2) into G3 and H3 of Sheet 1.

Here is the code I have so far. It is very strange as it worked ONCE and no longer works :S.

Please Login or Register  to view this content.

Can anyone help me with this?

Btw I would also like to repeat this worksheet change if the value is say "Newspaper" then it would copy the values from Sheet 2 B3 C3.. and so on and so forth. Do I just repeat the code using an Else If?

Please Login or Register  to view this content.

Thank you so much for this code it is very helpful!

Is there a way I can input a questioning line to this. So once it identifies the value it can ask "Would you like to insert Internet objectives".

This adds an element of decision instead of the data automatically being copied to G3:H3?

Sure. You can just add a message box and ask for confirmation. I'm not quite sure how you want to impliment this but here is an example:

Please Login or Register  to view this content.

I have now used your code and applied it to multiple sheets however for the life of me I can't get the code to perform the following function

1) When the data is copied over I would like the row of information that is PASTED into the respective sheet to be UNHIDDEN.

the reason for this is that all rows that do not contain information in any sheet is hidden. When the information is pasted in I would like that row to be revealed.

Please Login or Register  to view this content.