Excel VBA comparar columna fila de copia de datos
Bien, logré resolver este código de alguna manera con la ayuda de muchos de los expertos en codificación aquí. Necesito crear una macro que compare datos en dos hojas de trabajo.
En mis dos hojas de trabajo, hay una columna llamada "ID de solicitud electrónica", tengo que copiar las filas de registros queNO HAGA tener un "eRequest ID" enAMBOS ARCHIVOS.
El código que elaboré ahora copia recrods que tienen un "eRequest ID" enOTROS ARCHIVOS. Entonces, lógicamente, tengo que "negar" la condición IF en mi código a continuación, pero no tengo idea de cómo hacerlo, ya que soy un principiante total en la codificación, incluido 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
Perdona mi formato deficiente ... Soy muy nuevo en stackoverflow también.
Una cosa más, me di cuenta de que este código solo copia filas deSheets("JULY15Release_Master Inventory")
No copia filas deSheets("JULY15Release_Dev status")
incluso si solo hay una "eRequest ID" para esos datos.