VBA - Compare Two Lists on seperate sheets

[blista99]

Hello everyone!
Thank you for all the great solutions I could copy/paste from here to use for my own projects. Unfortunately I do now have a rather simple task, which I can figure out to work. I've tried several attempts, but did not get a satisfying result.
The situation is the following:
I have two big and monthly changing exports of data with 12+ collumns each and 500-1000 rows in two different sheets of the same workbook. But the only thing to compare them is one collumn each; an id-nummer. Like this:

Name	ID	Date	Time	Task	TrackingNr	Definition
sfzdtznd	8825326	03.04.2011	11:32	#25	0002585	laksdjfla
dghdfufgb	8853369	05.09.2012	08:35	#85	0008563	wtgjdhgj
fdfgjdzuj	8823547	05.12.2013	09:07	#67	0006797	asdwdtrzs
rhdjhgfu	6872432	21.01.2015	03:59	#87	0008721	qdfdasg
...	...	...	...	...	...	...

<tbody>
</tbody>

The second table has as much data as the first one but different values and collumn-names. Except for the ID and the date. The data is sorted by date but similarities are rather luck than wanted. The collumn description is not at the same position, meaning the ID/Date for expl. is in G/K [table 1] and once in B/H [table 2].

What I would like to have, is a VBA code which compares each ID of table 1 (Import_1) with the ID's of table two (Import_2) [as mentioned; two sheets in the same workbook] and outputs a value at the end of each row in table 1, where the ID matches with one of table two. And if not found to output a value one collumn more to the right. See below:

Name	ID	Date	Time	Task	TrackingNr	Definition	"Found in Table 2"	"Not Found"
sfzdtznd	8825326	03.04.2011	11:32	#25	0002585	laksdjfla	1
dghdfufgb	8853369	05.09.2012	08:35	#85	0008563	wtgjdhgj		1
fdfgjdzuj	8823547	05.12.2013	09:07	#67	0006797	asdwdtrzs	1
rhdjhgfu	6872432	21.01.2015	03:59	#87	0008721	qdfdasg		1
...	...	...	...	...	...	...

<tbody>
</tbody>

Thanks for your kind help.
Greets blista99

 

[JLGWhiz]

See if this will work for you.

Sub IsItThere()
Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long, c As Range, fn As Range
Set sh1 = Sheets(1) 'Edit sheet name
Set sh2 = Sheets(2) 'Edit sheet name
lr = sh1.Cells(Rows.Count, "G").End(xlUp).Row
    For Each c In Range("G2:G" & lr)
        Set fn = sh2.Range("B:B").Find(c.Value, , xlValues, xlWhole)
            If Not fn Is Nothing Then
                sh1.Cells(c.Row, Columns.Count).End(xlToLeft)(1, 2) = 1
            Else
                sh1.Cells(c.Row, Columns.Count).End(xlToLeft)(1, 3) = 1
            End If
    Next
End Sub

 

[blista99]

Allright. Many Thanks. I'll try it when im back at the office on monday. I'll give an update.

 

[blista99]

Awesome! Works like a charm. Thank you JLGWhiz.

 

[JLGWhiz]

Awesome! Works like a charm. Thank you JLGWhiz.

You're welcome,
Regards, JLG