![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
18/10/2008, 19:05
|
| | Fecha de Ingreso: octubre-2008
Mensajes: 10
Antigüedad: 16 años, 3 meses Puntos: 1 | |
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 |