Find matching ranges and Copy whole row in sheet2

I am wondering if someone can help me on this. I have a sheet with sets of data from two different dates. (Sheet1)
I like to find data which matches in three col. Tool|Channel|Sample. If the values are same in these three Col. in both sets of data.
then copy that row and put in Sheet2.
I would be thankful if someone can help me on this. I am attaching a sample sheet.
Thank you.

Hi Sintek, Thanks for the help. I ran the code and found several of the rows in sheet2 are not matching. Please run the code you will notice that.
Thanks again.

saziz,

This is how I read your problem.

Please Login or Register  to view this content.

Master Jindon


The codes give errors in this line.


rs.Open "Select Tool, Channel, Sample, Output From [" & e(0) & "] Where Exists(" & _
"Select * From [" & e(1) & "] Where A.Tool = G.Tool " & _
"And A.Channel = G.Channel And A.Sample = G.Sample);", cn
Sheets("sheet2").Range(e(2)).CopyFromRecordset rs: rs.Close

Just tested the code again with the workbook in post #1 and works fine without error.

Who are you anyway?

Then you should tell that in the first place.
I thought the OP is using another name.

If you are still getting such error, I need to see the workbook with the code.

As I said, it is working without error here.

It is working incorrectly. I downloaded the book in the first file.

Column header names may be incorrect or have spaces in the file, I don't know.

picture error link :
https://ibb.co/nQ46x8R

What do you mean by "incorrectly"?

As I mentioned, that was how I read the question and I am not sure if the result is what OP wants or not.

So, I'm waiting for the reply from the OP.

I meant that the red code block gives an error.

Maybe it's a separate topic because we didn't add the necessary Ado references.
In the picture I added in the link, the code is stuck in the red section and it does not work.


https://ibb.co/nQ46x8R

Once the relevant friend examines it, at least there will be no problem.

Working and if you are getting error, your Excel need to be fixed.

Hello Mr. Sintek,

I wrote this because I examined the relevant issue as a separate person.
I wanted to examine the work other than the friend who opened the subjct.
I got involved while reviewing Jindon's codes.

What a waste of time...

Originally Posted by Tacir

Once the relevant friend examines it, at least there will be no problem.

Mr Jindon
Did you see the book I added?

Hi Sintek, Your second code works perfectly.
I am grateful to you for spending time on this and helping me out.
Thank you!