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
Respuesta de James Bond
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
1 respuesta más de otro experto
Respuesta de Programar Excel
1
Estos ejemplos te ayudarán y orientarán para resolver lo que requieres
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://www.programarexcel.com/2017/10/como-buscar-datos-al-presionar-enter.html