Macro para buscar el valor de una celda y devolver el valor de la fila de la celda

Amigos tengo un problema con una macro, quiero poder buscar el valor de una celda en una columna y devover los valores de la fila correspondiente a esa celda, en otra columna de otra hoja.

EJEMPLO

Hoja 1 celda d8 "valor a buscar"

Hoja 2 columna A "rango de valores a buscar"

Requiero copiar los valores de las celdas b-h y pegarlas en las celdas de la hoja 1 d9-d15

2 respuestas

Respuesta
2

Prueba con esta macro

Sub copiar()
buscar = Sheets("hoja1").Range("d8")
Set datos = Sheets("hoja2").Range("a:a")
Set fila = datos.Find(buscar)
Range(fila.Address).Columns(2).Resize(1, 7).Copy
Sheets("hoja1").Range("d9:d15").PasteSpecial , Transpose:=True
Set datos = Nothing: Set filas = Nothing
End Sub
Respuesta
1

Estos ejemplos te ayudarán y orientarán para resolver lo que requieres

https://youtu.be/SGpDHS_6XMY

https://www.programarexcel.com/2018/08/conectar-excel-con-excel-consulta-sql_7.html

https://www.programarexcel.com/2017/10/como-usar-la-funcion-vlookup-o-buscarv.html

https://youtu.be/3FCkXGOIkiA 

https://www.programarexcel.com/2017/10/como-buscar-datos-al-presionar-enter.html

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas