Copiar rango de una hoja, buscar coincidencia y pegar rango en otra hoja

[fransuadelan]

Buenas tardes, 

Tras estar intentandolo y no llegar al resultado os transmito la consulta. Tengo en una hoja "denominada hoja1", un rango de celdas de f4:f14. En la celda A1 de la hoja1 tengo un texto. Necesitaria que se buscase en la columna A de la hoja2 la coincidencia de ese texto ubicado en la celda a1 de la hoja1 y pegar el rango en horizontal ubicado en el rango F4:F14 en esa misma linea. 

Es decir, os pongo un ejemplo:

hoja1

celda a1: Pedro

rango f4:f14: distintos datos.

hoja2 

buscar en la columna a el nombre de pedro y en esa fila pegar los valores del rango f4:f14.

 

 

[Antoni]

Sube un archivo Excel y pon un ejemplo de lo que quieres.

[Wrongdoer]

buenas tardes, yo lo haria de esta forma

Sub prueba()

For i = 1 To Hoja2.Range("a" & Rows.Count).End(xlUp).Row
If Hoja2.Range("a" & i) = Hoja1.Range("a1") Then
Hoja1.Range("f4:f14").Copy
Hoja2.Range("a" & i).Offset(0, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Application.CutCopyMode = xlCopy = False
End If
Next
End Sub
 

[JasallBcn]

Buenos días, por lo que entiendo. Busca el contenido de la celda A1 de la hoja 1, en la Hoja2 en un rango A1:A9 y si lo encuentra lo muestra en la Hoja1 en el rango F4:F14

=TRANSPONER(BUSCARX(A1;Hoja2!A1:A9;Hoja2!A1:K9;"No Existe"))

saludos

[JasallBcn]

Perdona Ahora vi que era con macros ?

Reutilizando el codigo de @Wrongdoer y siguiendo con lo que entendi.

Sub prueba()

For i = 1 To Hoja2.Range("a" & Rows.Count).End(xlUp).Row

 If Hoja2.Range("a" & i) = Hoja1.Range("a1") Then
  Hoja2.Range("a" & i & ":K" & i).Copy
  Hoja1.Range("F4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
  Application.CutCopyMode = xlCopy = False
  Exit Sub
 End If
Next

Hoja1.Range("F4").Value = "No Encontrado"
Hoja1.Range("F5:F14").Value = ""

End Sub