Macro que busque una palabra y pegue información 3 celdas más abajo de la celda que contiene la palabra.

Macro que busque en la hoja2 la información de la celda a1 de la hoja1

Una vez encontrada la información en la hoja2, pegar 3 celdas mas abajo (de la celda en que se encontró la “información” en la hoja2) todo lo que se encuentra bajo la celda b2 de la hoja1

1

1 Respuesta

41.375 pts. La verdadera sabiduría está en saber que nunca terminas...

Puedes adjuntar un archivo excel con un ejemplo de tu consulta con el resultado esperado, para poder tener un entendimiento más claro de tu problema.

Ander GS.

Esteban Lagos,

Adjunto código para el desarrollo de tu consulta y para su revisión.

Sub Macro()
Sheets("Hoja1").Select
Ref_Busca = Worksheets("Hoja2").Cells.Find(What:=Worksheets("Hoja1").Range("A1") _
            , LookIn:=xlValues, MatchCase:=True).Address
If IsEmpty(Range("B2")) Then
    Set Celda = Range("B2").End(xlDown)
    Set Rango = Range(Celda, Celda.End(xlDown))
Else
    Set Rango = Range(Range("B2"), Range("B2").End(xlDown))
End If
Worksheets("Hoja1").Range(Rango.Address).Copy Destination:=Worksheets("Hoja2").Range(Ref_Busca).Cells(4, 1)
Range("A1").Select
End Sub

Espero que te sirva de ayuda y este acorde de tu necesidad. Cualquier consulta estaré atento.

Por favor, no olvidar de valorar las respuestas.

Mil gracias, funciona perfecto, sin embargo, quisiera saber como configurar la macro para que funcione sin que la celda b2 este vacía.

La macro incluye esa condición, puedes hacer una prueba y debe ejecutar de igual manera. Puedes revisar la macro y podrás observar que esta la condición IF.

Cualquier consulta estaré pendiente.

Ander GS.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas