Tengo 2 hojas en un mismo libro de excel y quiero compararlas con 2 variables: la 1 es un código y la 2 es la fecha
Tengo 2 hojas en un mismo libro de excel y quiero compararlas con 2 variables: la columna 1 es un código y la columna 2 es la fecha y lo que deseo es sacar las diferencias basada en la fecha diaria y en el código que corresponde a esa fecha.
Ejemplo:
hoja1 hoja 2
codigo fecha codigo fecha
1710 01-ene-2018 1711 01-ene-2018 (diferente)
1720 01-ene-2018 1720 01-ene-2018 (ok)
1712 01-ene-2018 1712 01-ene-2018 (ok)
1722 01-ene-2018 1730 01-ene-2018 (diferente)
1715 02-ene-2018 1713 02-ene-2018 (diferente)
1724 02-ene-2018 1724 02-ene-2018 (ok)
1732 02-ene-2018 1731 02-ene-2018 (diferente)
1727 02-ene-2018 1730 02-ene-2018 (diferente)
1 Respuesta
Gracias Dante por la respuesta, pero no es lo que necesito, ya que en un mismo día en la hoja 1 pueden haber más registros que en la hoja 2 o viceversa y con la fórmula siempre va a salir diferente. Tal vez por favor me podrías ayudar con una macro
Lo que pasa es que en tu ejemplo, parece que estás comparando la misma fila.
Con gusto te ayudo con la macro, pero podrías exponer un caso real.
Te anexo la macro
Sub Compara_AB()
'Por Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h1.Columns("A").Find(h2.Cells(i, "A").Value, lookat:=xlWhole)
If Not b Is Nothing Then
If h1.Cells(b.Row, "B").Value = h2.Cells(i, "B").Value Then
h2.Cells(i, "C").Value = "ok"
Else
h2.Cells(i, "C").Value = "diferente"
End If
Else
h2.Cells(i, "C").Value = "diferente"
End If
Next
MsgBox "Fin"
End Sub