buscar diferencias entre dos columnas de diferentes libros
publicado
intento comparar la pagina1 columna (m) con la pagina2 columna (c), el objetivo es enviar a la pagina3 el resultado de aquello que esta en la pagina1 pero no esta en la pagina2. estoy trabajando en este codigo pero no se si debo cambiar de codigo o solo puedo agregar algo mas que diga si encontraste la diferencia entre pagina 1 y pagina 2, devuelve el resultado en la pagina 3.
Private Sub ejemplo()
'Define Fields
Dim iR As Double, oRw As Double
Dim iRow_M As Double
Dim s1 As Worksheet, s2 As Worksheet
Dim s3 As Worksheet
Set s1 = ThisWorkbook.Sheets("pagina1")
Set s2 = ThisWorkbook.Sheets("pagina2")
Set s3 = ThisWorkbook.Sheets("pagina3")
iRow_M = s1.UsedRange.Rows.Count
For iR = 1 To iRow_M
If s1.Cells(iR, "m") <> s2.Cells(iR, "C") Then
oRw = oRw + 1
s3.Cells(oRw, 1).Value = s1.Cells(iR, "m") ' aqui solo muestra la columna M completa, por eso pido ayuda
End If
Next iR
End Sub
si alguien me puede decir como definir ese resultado lo agradeceria mucho.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
intento comparar la pagina1 columna (m) con la pagina2 columna (c), el objetivo es enviar a la pagina3 el resultado de aquello que esta en la pagina1 pero no esta en la pagina2. estoy trabajando en este codigo pero no se si debo cambiar de codigo o solo puedo agregar algo mas que diga si encontraste la diferencia entre pagina 1 y pagina 2, devuelve el resultado en la pagina 3.
Private Sub ejemplo()
'Define Fields
Dim iR As Double, oRw As Double
Dim iRow_M As Double
Dim s1 As Worksheet, s2 As Worksheet
Dim s3 As Worksheet
Set s1 = ThisWorkbook.Sheets("pagina1")
Set s2 = ThisWorkbook.Sheets("pagina2")
Set s3 = ThisWorkbook.Sheets("pagina3")
iRow_M = s1.UsedRange.Rows.Count
For iR = 1 To iRow_M
If s1.Cells(iR, "m") <> s2.Cells(iR, "C") Then
oRw = oRw + 1
s3.Cells(oRw, 1).Value = s1.Cells(iR, "m") ' aqui solo muestra la columna M completa, por eso pido ayuda
End If
Next iR
End Sub
si alguien me puede decir como definir ese resultado lo agradeceria mucho.