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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas