Snasui Excel Forum

Code: Select all

Sub IndexMatch()
    Dim lastrow
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Connextion").Range("L3:L" & lastrow)
        .Formula = "=IF(ISNA(MATCH(A2,Connextion!$A$3:$A$65536,)),"""",INDEX(Option!$C$3:$C$65536,MATCH(A2,Connextion!$A$3:$A$65536,),2))"
        .Value = .Value
    End With
End Sub

Code: Select all

Public Sub IndexMatch2()
    Dim lastrow
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    With Worksheets("Connextion").Range("c2:c" & lastrow).Offset(0, 9)
        .Formula = "=IF(ISNA(MATCH(A2,Daily!$A$2:$A$65536,)),"""",INDEX(Daily!$A$2:$P$65536,MATCH(A2,Daily!$A$2:$A$65536,),2))"
        .Value = .Value
    End With
End Sub