Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/10/2008, 19:05
Antonio8688
 
Fecha de Ingreso: octubre-2008
Mensajes: 10
Antigüedad: 15 años, 6 meses
Puntos: 1
De acuerdo Respuesta: creuce de datos en excel

Hola Kmylo.
Creo que esta macro puede ayudarte. Sólo tienes que copiar en la columna A de una hoja auxiliar, los Rut que están en la Planilla A. Y en la columna B, los Rut que están en la Planilla B. Al ejecutar la macro, en la columna C se copiaran los Rut que están en la Columna A pero no están en la B. Y en la columna C, se copiarán los Rut que están en la columna B pero no están en la columna A.

Si quieres, puedes crear un botón para ejecutar la macro. Sólo es cuestión de adaptar la macro a tus necesidades.

Este es el código:

Sub filtra()
Dim fila, f1, f2 As Long, existe As Boolean
Application.ScreenUpdating = False
fila = 1
For f1 = 1 To Application.Count(Range("A:A"))
existe = False
For f2 = 1 To Application.Count(Range("B:B"))
If Cells(f1, 1).Value = Cells(f2, 2).Value Then existe = True
Next f2
If existe = False Then
Cells(fila, 3).Value = Cells(f1, 1).Value
fila = fila + 1
End If
Next f1
fila = 1
For f2 = 1 To Application.Count(Range("B:B"))
existe = False
For f1 = 1 To Application.Count(Range("A:A"))
If Cells(f1, 1).Value = Cells(f2, 2).Value Then existe = True
Next f1
If existe = False Then
Cells(fila, 4).Value = Cells(f2, 2).Value
fila = fila + 1
End If
Next f2
Application.ScreenUpdating = True
End Sub

_________________________________________
Un saludo desde Barranquilla, la Puerta de Oro de Colombia