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:

[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]Name[/TD]
[TD]ID[/TD]
[TD]Date[/TD]
[TD]Time[/TD]
[TD]Task[/TD]
[TD]TrackingNr[/TD]
[TD]Definition[/TD]
[/TR]
[TR]
[TD]sfzdtznd[/TD]
[TD]8825326[/TD]
[TD]03.04.2011[/TD]
[TD]11:32[/TD]
[TD]#25[/TD]
[TD]0002585[/TD]
[TD]laksdjfla[/TD]
[/TR]
[TR]
[TD]dghdfufgb[/TD]
[TD]8853369[/TD]
[TD]05.09.2012[/TD]
[TD]08:35[/TD]
[TD]#85[/TD]
[TD]0008563[/TD]
[TD]wtgjdhgj[/TD]
[/TR]
[TR]
[TD]fdfgjdzuj[/TD]
[TD]8823547[/TD]
[TD]05.12.2013[/TD]
[TD]09:07[/TD]
[TD]#67[/TD]
[TD]0006797[/TD]
[TD]asdwdtrzs[/TD]
[/TR]
[TR]
[TD]rhdjhgfu[/TD]
[TD]6872432[/TD]
[TD]21.01.2015[/TD]
[TD]03:59[/TD]
[TD]#87[/TD]
[TD]0008721[/TD]
[TD]qdfdasg[/TD]
[/TR]
[TR]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[/TR]
</tbody>[/TABLE]
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:
[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]Name[/TD]
[TD]ID[/TD]
[TD]Date[/TD]
[TD]Time[/TD]
[TD]Task[/TD]
[TD]TrackingNr[/TD]
[TD]Definition[/TD]
[TD]"Found in Table 2"[/TD]
[TD]"Not Found"[/TD]
[/TR]
[TR]
[TD]sfzdtznd[/TD]
[TD]8825326[/TD]
[TD]03.04.2011[/TD]
[TD]11:32[/TD]
[TD]#25[/TD]
[TD]0002585[/TD]
[TD]laksdjfla[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dghdfufgb[/TD]
[TD]8853369[/TD]
[TD]05.09.2012[/TD]
[TD]08:35[/TD]
[TD]#85[/TD]
[TD]0008563[/TD]
[TD]wtgjdhgj[/TD]
[TD][/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]fdfgjdzuj[/TD]
[TD]8823547[/TD]
[TD]05.12.2013[/TD]
[TD]09:07[/TD]
[TD]#67[/TD]
[TD]0006797[/TD]
[TD]asdwdtrzs[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]rhdjhgfu[/TD]
[TD]6872432[/TD]
[TD]21.01.2015[/TD]
[TD]03:59[/TD]
[TD]#87[/TD]
[TD]0008721[/TD]
[TD]qdfdasg[/TD]
[TD][/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


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