Macro para buscar datos de una hoja a otra según criterio

[Manuel TR]

Hola a todos, por favor si alguien me puede ayudar con lo siguiente:

Tengo un reporte de varias boletas de pago, cada boleta tiene un número de DNI

Necesito que en base al criterio de la celda número de DNI (celda color verde), de la hoja “BOLETAS”, haga una búsqueda en la hoja1 Columna “A” y si coincide con el número de DNI de cada boleta, que copie el cargo (columna C) que le corresponde y la ubique debajo de la celda Cargo (celda color rojo) de la hoja “BOLETAS”.

De la misma forma con los datos de la columna D de la hoja1, se hace una búsqueda en base al número de DNI y de coincidir con lo asignado en cada boleta de la hoja “BOLETAS”, se debe copiar los datos de la columna D de la hoja1 en la celda de color naranja de la hoja BOLETAS”, de la misma forma para todas las boletas.

Y en la celda FG (de color azul) debe decir “Sueldo y/o Jornal”, de la misma forma para las demás boletas.

Adjunto archivo con las respectivas casillas comentadas y con formula, para que se entienda mejor que es lo que se desea.

Muchas gracias

Libro2.xlsx

[Antoni]

Ejecuta la macro CompletarInfo:

Sub CompletarInfo()
Dim DNI As Range, Número As Range
Application.ScreenUpdating = False
With Sheets("Hoja1")
   For Each DNI In .Range(.Range("A3"), .Range("A" & Rows.Count).End(xlUp))
      Set Número = Sheets("BOLETAS").Columns("B").Find(DNI, , , xlWhole)
      If Not Número Is Nothing Then Completar DNI, Número
      Set Número = Sheets("BOLETAS").Columns("L").Find(DNI, , , xlWhole)
      If Not Número Is Nothing Then Completar DNI, Número
   Next
End With
End Sub
'--
Private Sub Completar(DNI As Range, Número As Range)
Número.Offset(2, 1) = DNI.Offset(0, 2)
Número.Offset(9, 4) = "Sueldo y/o jornal"
Número.Offset(9, 6) = DNI.Offset(0, 3)
End Sub

 

[Manuel TR]

Hola Antoni, 

Gracias por responder, acabo de probar tu macro y funciona perfecto.

Muchas gracias.