Hi
Try this
Sub aaa()
Dim OutSh As Worksheet
Set OutSh = Sheets("Result")
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
For j = 2 To lastrow
If Cells(j, 3) >= Cells(i, 3) And Cells(j, 5) = "Yes" And i <> j Then
outrow = OutSh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
OutSh.Cells(outrow, 1).Value = Cells(i, 1).Value
OutSh.Cells(outrow, 2).Value = Cells(i, 2).Value
OutSh.Cells(outrow, 3).Value = Cells(j, 1).Value
OutSh.Cells(outrow, 4).Value = Cells(j, 2).Value
End If
Next j
Next i
End Sub
rylo
Bookmarks