Unique last match udf

[reggieneo]

Hello All, I have managed to use nested index match to get the first match with multiple criteria but really struggled to get the last match until I found these article in MSDN from Hans Vogelaar (http://www.eileenslounge.com). this works well but only for one match only . I need to find not only the unique last match in J but in multiple column if X =A and Y =C . Appreciate all the help. Much Thanks.

Sub FindMatch1()

With Worksheets("CVerify")
        .Range("J2").Value = "=FindMatch(B2,C2)"
        .Range("J2").Value = .Range("J2").Value
End With                                                                                                                                                                                                                                                                                End Sub                                                                                                                                                                                                                                                                                        
Function FindMatch(x As Variant, y As Variant)
    Const FirstRow = 4
    Dim LastRow, LastRow1 As Long
    Dim CurRow As Long
    With Worksheets("CVerify")
        LastRow = .Range("B:C").Find(What:="*", SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious).Row
            
              LastRow1 = .Range("B:C").Find(What:="*", SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious).Row
            
        
         For CurRow = LastRow To FirstRow Step -1
        
            If .Range("A" & CurRow).Value = x And _
                    .Range("C" & CurRow).Value = y Then
               
                FindMatch = .Range("J" & CurRow).Value 'And FindMatch = .Range("P" & CurRow).Value
                            
                Exit Function
            End If
        Next CurRow
        
       
    End With
    ' If we get here, no match was found
    FindMatch = "Not found"
End Function

 

[Yongle]

I am trying to understand what you want as your "end" result
Q1. Do you simply want to replace the formula in column J with its value whenever there is a valid match?

Q2. Does this new column return correct matches and the values required to be "fixed" ?
(this is a temporary column, and only for my benefit )
Add an extra column to your data table
- insert this formula in row3 and copy down (amend 3 if data starts in a different row)
=IF(AND(A3=$B$2,C3=$C$2),J3,"")

Let me know and I will amend the VBA for you

thanks