buscar datos en diferentes hojas

Imagino que tienes una hoja (Hoja2) con titulos de campo tal que DNI , NOMBRES , DIRECCION. Una Hoja (Hoja1) donde al menos tienes un campo (DNI) a comparar y una hoja destino (Hoja3) con nombres de campo (DNI,NOMBRES,DIRECCION).
Ejecuta esta macro y me comentas resultados.La macro buscar cada valor del DNI de la hoja2 en la hoja 1 y si lo encuentra devuelve la linea de registros en la hoja3.

Un saludo

Sub REPETIDOS()
Dim CELDA As Range
On Error GoTo 10
For Each CELDA In Worksheets("HOJA2").Range("A2:A65536")
If CELDA = "" Then Exit For
If Application.WorksheetFunction.VLookup(CELDA, Worksheets("HOJA1").Range("A1:A65536"), 1, 0) Then
Worksheets("HOJA3").Range("A2").Offset(I, 0) = CELDA
Worksheets("HOJA3").Range("A2").Offset(I, 1) = CELDA.Offset(0, 1)
Worksheets("HOJA3").Range("A2").Offset(I, 2) = CELDA.Offset(0, 2)
I = I + 1
End If
10 Next CELDA
End Sub

Prueba con este

Sub REPETIDOS()
Dim CELDA As Range
On Error GoTo 10
For Each CELDA In Worksheets("HOJA2").Range("A2:A65536")
If CELDA = "" Then Exit For
If Application.WorksheetFunction.CountIf(Worksheets("HOJA1").Range("A1:A65536"), CELDA) > 0 Then
Worksheets("HOJA3").Range("A2").Offset(I, 0) = CELDA
Worksheets("HOJA3").Range("A2").Offset(I, 1) = CELDA.Offset(0, 1)
Worksheets("HOJA3").Range("A2").Offset(I, 2) = CELDA.Offset(0, 2)
I = I + 1
End If
10 Next CELDA
End Sub


un saludo