Link Multiple Fields

[BradleyS]

I can't figure out a resolve to my issue.

I have 2 tabs of list data

Tab 1 includes the following:


Tab 2 includes the following:


What I would like to do is match the User ID and only display lines from both tab if the eventdates match as well.

This can be presented on a seperate sheet or highlight each line of data that matches User_ID and Eventdate.

I'm trying to find out what type of Category was entered when these reviews were recorded.
The only common fields are the User_ID and Eventdate.

Is this possible?

 

[matthew230]

Can you give an example of the match you are trying to achieve

 

[BradleyS]

As an example:
If there is no match, nothing is shown.
If it finds a match, (even a single one) it displays the data from the other table.

 

[matthew230]

This should do what you want:

<code>
Sub findmatches()
Dim userid As Double
Dim eventdate As Double
Dim match As Boolean
Dim numberofmatches As Double

Sheets("sheet1").Cells.Interior.ColorIndex = 0
Sheets("sheet2").Cells.Interior.ColorIndex = 0
Sheets("sheet1").Range("d:f").ClearContents
Sheets("sheet1").Range("d1").Value = "USERID"
Sheets("sheet1").Range("e1").Value = "DATE"
Sheets("sheet1").Range("d1").Value = "USERID"
match = False
numberofmatches = 0


For Each cell In Sheets("sheet1").Range("a2", Sheets("sheet1").Range("a64000").End(xlUp))
userid = cell.Value
eventdate = cell.Offset(0, 1).Value
For Each cell2 In Sheets("sheet2").Range("a2", Sheets("sheet2").Range("a64000").End(xlUp))
If cell2.Value = userid And cell2.Offset(0, 1).Value = eventdate Then
cell2.EntireRow.Interior.ColorIndex = 6
cell.Offset(0, 3).Value = cell2.Value
cell.Offset(0, 4).Value = cell2.Offset(0, 1).Value
cell.Offset(0, 5).Value = cell2.Offset(0, 2).Value
match = True
numberofmatches = numberofmatches + 1
Else
End If
Next
If match = True Then
cell.EntireRow.Interior.ColorIndex = 6
Else
End If
match = False

Next
If numberofmatches = 0 Then Sheets("sheet1").Range("d1:f1").ClearContents
MsgBox numberofmatches, vbOKOnly, "Number of Matches Found"
End Sub

<code>

 

[BradleyS]

That works perfectly.

Thank you very much