Need help to Find the match then enter the value fr WB to WB after Double_Click

Hello All,
I'm looking for method how to copy the value from the cell then open another wb, seraching same data and enter the missing value after Double_Click. Please look at the sample in attached.

Pls also see code in below for your reference and you may help me with a good code:

Please Login or Register  to view this content.

put this into the worksheet module where you have the data you want to doubleclick, adapt the path/filename and the name of the target worksheet name, works for data in column K:

Please Login or Register  to view this content.

Hi Tehnexus,
The wbMstr is not open after I double click at column K (I did change to my path/File)

Please Login or Register  to view this content.

Regards,
tt3

Hi,

the target workbook is closed after the value was copied

Please Login or Register  to view this content.

Double click the yellow marked cell in: wbThis.xlsm

Hi Tehnexus,
The wbMstr now is open but the value is not transferred. I did a little changed is moved one column to the left. Can you take a look at sample and revise.

Regards,
tt3

I have figured it out but do you know why the code does not Loop for the second , third same data until the last row?

The loop is left when data is copied assuming your data in unique defined by the 2 keys we are macthing

Please Login or Register  to view this content.

Any change in the structure need also to be done in the code...
try with the structure in post #7

Please Login or Register  to view this content.

Hi,

This will not stop after one copy in case you have more than one record like this, and will copy the entire row to the next free row a 3rd book called wbData.Sheets(2) and remove the target (double clicked) row:

Please Login or Register  to view this content.

Hi Tehnexus,
The code works fine and now I try to modify some like below but it's not working. Do you know why?
This text "This info is from website." appears more than 2 times after the value of its cell.

Please Login or Register  to view this content.

One more thing:
I changed this line:

Please Login or Register  to view this content.

To:

Please Login or Register  to view this content.

Is it possible when user click the last target row (without the strikethrough) of the ws then have a popup msgbox "The task now is complete. Please click Yes button" (only Yes option :-)) to force the wb run the last macro to send the email out to the original requester.
Reason to do this is user may forget to send email out and then they will point a finger to me :-).
Regards,
tt3

HI,

1. Clarification:
Target is a Range object representing the cell which was doubleClicked
xlRng is a Range object representing the cell where the first key e.g. "123456" was found in "PastDue.xlsm"

2. Where did you put that line?

Please Login or Register  to view this content.

It would basically change Columns Q in the line where you double clicked

3. When you say "last Target row" you mean the macro will have to check all other rows for font color or Strikethrough?
Then you have to define the Range where the data than can potentially be copied by doubleclick, and yes it is possible.
For this could you provide a sample workbook which looks like your original file, I mean including all headers/footers, the data itself can be just test data.

Hi,

try this:

Please Login or Register  to view this content.

Originally Posted by tuongtu3

I try to connect the below but it does not work.

What exactly "does not work", you got an error? if yes in which line with what message? In which sub is this? what did you doubleclick?
If no error but the macro does not do what you like it to be done please post the entire code.

Without seeing any "internet code" I assume with "not working" you mean the doubleclick event is not triggered and I assume this is due to setting the events off, in

Please Login or Register  to view this content.

but then not setting them to true again

Hi,

to send a mail check this: http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx
The code in post #15 has a sub to send a mail if you clicked the last cell already prepared.

If this does not solve your problem please post your code

Hi,
I don't have any problem with the email code. My question is where should I put email code? If I put it right below a line of Send Email in your code then the email will be sent out, but it will not be sent out if I put exactly where indicated in your code.

1. How to exit sub if there is blank or nothing after I autofilter?
2. What is the best method to get email address to sent out via vba code? Currently I put all clients (1000+) name & email address, website, phone buss address in sheet3, Sheets("Sheet3").Range("A1").Formula = vlookup () then I get the info from Range("A1").email address; Range("B1").contact phone; Range("C1").bus. address;

Regards,
tt3

Please Login or Register  to view this content.

0. The fact that the email is sent when the code is in the bigger sub and not separated into another depends on how the mailing is coded.

1. I didn't see any autofilter in your example file, do you autofilter a table or just a range of data?

2. there are no vlookup formulas or matching tables in your example file, there are for sure faster ways to get those values, e.g. use the find function of the range object

Hi,
Everything was ok then now the email stop sending out when I click at the last cell after I tried to clean up my code. I may deleted some line that stop sending out the email.
I can send you my entire code in private message if this does not violate the forum rule (This is really simple code). Let me know.
I'm trying to modify if column P larger than today date (after 2click at each cell, the value at target cell (offset 6) will be equal today date + 30
I think my problem is from here:

Please Login or Register  to view this content.

Updated:
I changed this

Please Login or Register  to view this content.

To:

Please Login or Register  to view this content.

But still want to see why I can not use your code

Regards,
tt3