Schleife und lese 3 Kriterien in einem anderen Blatt und fülle Daten in leere Spalte, wenn die Kriterien erfüllt sind

Question

Was ich versuche zu erreichen ist, durch alle Zeilen von Daten im Detail Tab und Lookup zu suchen, um die Zeilen zu identifizieren, die genau passen Registerkarte "Tracker" Sobald die Datenzeile auf der Tracker-Registerkarte identifiziert ist, legen Sie eine Kopie des Werts von Spalte L auf Spalte S derselben Zeile fest.

Ich habe zuvor versucht, mit SVERWEIS-Methode auf der ICN Nr. Spalte zu erreichen, aber da es nur ein Kriterium betrachtete, stimmte es nicht mit der richtigen Zeile im Tracker überein, da die Menge unterschiedlich ist.

Bitte helfen!

Edit: Ich habe eine Application.Match Codierung, aber ich weiß nicht, was mit dem Code falsch ist:

Sub MatchPName_Amt_ICN() 
    Dim cell As Range 
    Dim NumRow, LastRow As Long 
    Dim Sht1 As Worksheet 
    Dim sPRng, sARng, sICNRng As Variant 

    Set Sht1 = ActiveWorkbook.Sheets("Detail") 

    LastRow = Sheets("Tracker").Range("A" & Rows.Count).End(xlUp).row 
    NumRow = Sht1.Cells(Rows.Count, "A").End(xlUp).row 

     For Each cell In Sheets("Tracker").Range("F2" & ":V" & LastRow) 
      sPRng = Application.Match(1, Sht1.Range("H2" & ":H" & NumRow), 0) 
      sARng = Application.Match(1, Sht1.Range("P2" & ":P" & NumRow), 0) 
      sICNRng = Application.Match(1, Sht1.Range("V2" & ":V" & NumRow), 0) 

       If Not IsError(_ 
        sPRng = cell(0, "F").Value & _ 
        sARng = cell(0, "L").Value & _ 
        sICNRng = cell(0, "R").Value) Then 

        If cell(0, "V").Value = "" Then     'If Tracker column V is empty 
        cell(0, "V").Value = cell.Offset(0, -10).Value 'The cell value = column L 
        End If 
       End If 
    Next cell 

    On Error GoTo 0 
End Sub 

Excel file

Die hochgeladene Datei von meiner Arbeitsdatei unterscheidet, da es einige P & C Informationen, die ich entfernen muss.

Answer 1

Welche Spalten aus welchen Blättern wohin?