Kopieren von Daten von einer Registerkarte zu einer anderen basierend auf Werten aus einer anderen Tabelle

Question

Ich habe eine Tabelle "RawData" in Excel Ich möchte filtern. Spalte A hat einen Namen und Spalte B hat eine Nummer. Ich möchte die Daten in eine andere Tabelle "LoadingData" kopieren, wenn der Name mit einer bestimmten Nummer übereinstimmt. Ich habe die entsprechenden Namen/Nummern in einer anderen Registerkarte "ShiftData" innerhalb des Arbeitsblatts.

EX. Wenn John Smith eine 2 in der Spalte neben ihm hat, kopieren Sie die ganze Zeile auf das Blatt "LoadingData". Wenn John Smith eine 4 in der Spalte neben ihm hat, verschieben Sie seine Daten nicht.

Ich habe versucht, mit einer SVERWEIS-Funktion, aber ich denke, was ich versuche, ist komplizierter als das. Jede Hilfe wäre willkommen!

Answer 1

Sub CopyData() 
Const cValuetoCheck = 2 
Dim rngData As Range, rngLoad As Range 

    Set rngData = Worksheets("shiftdata").Range("B1") 
    Set rngLoad = Worksheets("loadingdata").Range("A1") 

    While Not (IsEmpty(rngData)) 
     If rngData = cValuetoCheck Then 
      rngData.EntireRow.Copy 
      rngLoad.EntireRow.PasteSpecial 
      Set rngLoad = rngLoad.Offset(1, 0) 
     End If 
     Set rngData = rngData.Offset(1, 0) 
    Wend 

End Sub