Comparar columnas y localizar diferencias

Hola a todos. Otra vez por aqui, año nuevo problema nuevo :)
Tengo una hoja de 2 columnas (por simplificar) . La primera es de fecha y
la siguiente es un valor correspondiente a cada fecha.

Ahora, resulta que al intentar comparar esta hoja1 con otra procedente de
otra fuente no me coincide porque en la segunda hoja (que deberia tener
los mismos valores) me faltan fechas. ¿es posible "casar" ambas tablas
para saber de que dia son los datos que faltan?. Algo asi, primera tabla:

A B
05/01/2004 3401.62
07/01/2004 3514.58
08/01/2004 3717.14
09/01/2004 3726.41
10/01/2004 3712.10
12/01/2004 3735.4
13/01/2004 3918.2
14/01/2004 3981.1
15/01/2004 3990.64
16/01/2004 3927.4
19/01/2004 3910.1
20/01/2004 3842.99

Segunda:
A B
05/01/2004 3401.62
07/01/2004 3514.58
08/01/2004 3717.14
09/01/2004 3726.41
12/01/2004 3735.4
13/01/2004 3918.2
14/01/2004 3981.1
15/01/2004 3990.64
19/01/2004 3910.1
20/01/2004 3842.99

Al colocar la columna B de la segunda al lado de la de la primera, no
coinciden ni fechas ni valores porque en la segunda faltan 2 dias (el 10
y el 16 de enero). Se puede hacer que se "desplacen" las fechas que si
coinciden para que las que faltan queden en blanco?. Un poco lioso,
Gracias por adelantado.


Salu2. Martin.

Hola, Martin.

Creo que el siguiente código podrà­a ser el inicio de la solución a
tu problema, pero probablemente tengas que modificarlo para adaptarlo
a tu caso.


Sub CorresponderFilas()
Dim x As Boolean, j As Double
x = True
j = 1
Do While x
If Len(ActiveSheet.Cells(j, 1).Value) > 0 Then
If ActiveSheet.Cells(j, 1).Value <>
Worksheets("Hoja1").Cells(j,
1).Value Then
ActiveSheet.Cells(j, 1).Select
Selection.EntireRow.Insert
End If
j = j + 1
Else
x = False
End If
Loop
End Sub

Nos cuentas cómo te fue...

"Martin" escribió:

Mostrar la cita

Hola a todos. Otra vez por aqui, aà±o nuevo problema nuevo :)
Tengo una hoja de 2 columnas (por simplificar) . La primera es de
fecha y la siguiente es un valor correspondiente a cada fecha.

Ahora, resulta que al intentar comparar esta hoja1 con otra
procedente de otra fuente no me coincide porque en la segunda hoja
(que deberia tener los mismos valores) me faltan fechas. ¿es posible
"casar" ambas tablas para saber de que dia son los datos que faltan?.
Algo asi, primera tabla:

A B
05/01/2004 3401.62
07/01/2004 3514.58
08/01/2004 3717.14
09/01/2004 3726.41
10/01/2004 3712.10
12/01/2004 3735.4
13/01/2004 3918.2
14/01/2004 3981.1
15/01/2004 3990.64
16/01/2004 3927.4
19/01/2004 3910.1
20/01/2004 3842.99

Segunda:
A B
05/01/2004 3401.62
07/01/2004 3514.58
08/01/2004 3717.14
09/01/2004 3726.41
12/01/2004 3735.4
13/01/2004 3918.2
14/01/2004 3981.1
15/01/2004 3990.64
19/01/2004 3910.1
20/01/2004 3842.99

Al colocar la columna B de la segunda al lado de la de la primera, no
coinciden ni fechas ni valores porque en la segunda faltan 2 dias (el
10 y el 16 de enero). Se puede hacer que se "desplacen" las fechas
que si coinciden para que las que faltan queden en blanco?. Un poco
lioso, Gracias por adelantado.


Salu2. Martin.