Excel VBA Index en vergelijken

[Tweety1]

Ik zou graag de volgende formule als een VBA code willen zie. Alleen weet ik niet hoe de VBA code eruit komt te zien.
De range is waar de formule geplaatst moet worden is C2 t/m C500 is de match gevonden dan de waarde plaatsen.
Bij herhalen van de macro de cellen die al gevuld zijn overslaan.

=ALS(ISFOUT(INDEX(Test1;VERGELIJKEN(A2&B2;Test;0)));"";INDEX(Test1;VERGELIJKEN(A2&B2;Test2;0)))

 

[OctaFish]

Doe er eens een voorbeeldje bij, je kunt niet van ons verwachten dat we zelf de data gaan inkloppen...

 

[Tweety1]

Hierbij een voorbeeld bestand
Bekijk bijlage IndexVergelijken.xlsm

 

[Tweety1]

Is er niemand die mij kan helpen

 

[Warme bakkertje]

Als ik je vraag goed begrepen heb ??( je voorbeeldbestand is al 10X bekeken en nog geen reacties, dus ....)

Sub tst()
    sn = Sheets("Blad1").ListObjects("Tabel2").DataBodyRange
    sn2 = Sheets("Blad2").ListObjects("Tabel1").DataBodyRange
    For i = 1 To UBound(sn)
        myconcat = sn(i, 1) & sn(i, 2)
        For ii = 1 To UBound(sn2)
            If myconcat = sn2(ii, 4) And sn(i, 3) = vbNullString Then sn(i, 3) = sn2(ii, 1)
        Next
    Next
    Sheets("Blad1").ListObjects("Tabel2").DataBodyRange = sn
End Sub

 

[Tweety1]

Thanks