Excel VBA Spalte Datenkopie Zeile vergleichen
Okay also habe ich es irgendwie geschafft, diesen Code mit Hilfe von vielen der Codierungsexperten hier zu erarbeiten. Ich muss ein Makro erstellen, das Daten in zwei Arbeitsblättern vergleicht.
In beiden Arbeitsblättern gibt es eine Spalte mit dem Namen "eRequest ID". Ich muss die Datensatzzeilen kopieren, dieUNTERLASSEN SI habe eine "eRequest ID" inEIDE DATEI.
Der Code, den ich ausgearbeitet habe, kopiert jetzt Recrods, die eine "eRequest ID" in @ habeEITHER FILES. Logischerweise muss ich die IF-Bedingung in meinem Code unten "negieren", aber ich habe keine Ahnung, wie ich das machen soll, da ich ein absoluter Anfänger im Codieren bin, einschließlich VBA.
Sub compareAndCopy()
Dim lastRowE As Integer
Dim lastRowF As Integer
Dim lastRowM As Integer
Dim foundTrue As Boolean
Application.ScreenUpdating = False
lastRowE = Sheets("JULY15Release_Master Inventory").Cells(Sheets("JULY15Release_Master Inventory").Rows.Count, "A").End(xlUp).Row
lastRowF = Sheets("JULY15Release_Dev status").Cells(Sheets("JULY15Release_Dev status").Rows.Count, "A").End(xlUp).Row
lastRowM = Sheets("Mismatch").Cells(Sheets("Mismatch").Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRowE
foundTrue = False
For j = 1 To lastRowF
If Sheets("JULY15Release_Master Inventory").Cells(i, 2).Value = Sheets ("JULY15Release_Dev status").Cells(j, 7).Value Then
foundTrue = False
Exit For
End If
Next j
If Not foundTrue Then
Sheets("JULY15Release_Master Inventory").Rows(i).Copy Destination:= _
Sheets("Mismatch").Rows(lastRowM + 1)
lastRowM = lastRowM + 1
End If
Next i
Application.ScreenUpdating = False
End Sub
Verzeihen Sie meine schlechte Formatierung .. Ich bin sehr neu in Stackoverflow als auch.
Eine weitere Sache, ich habe gerade festgestellt, dass dieser Code nur Zeilen von @ kopieSheets("JULY15Release_Master Inventory")
Es werden keine Zeilen von @ kopierSheets("JULY15Release_Dev status")
auch wenn es nur eine "eRequest ID" für diese Daten gibt.