Sustituir fila de un rango desde otra hoja

hola, prueba a ver este codigo adaptado a ellos y con pastespecial. Mira a
ver que tal te va y comentas

aunque no estoy seguro de que estos sean los rangos a los que te refieres,
son los que me parece intuir.

Te los comento un poco por si me he equivocado, y ya de paso te explico un
poco el funcionamiento del codigo (lo puntos se corresponden con los puesto
al final de algunas filas del codigo)

1º .- es la hoja en donde esta la lista original ("Informe"). Se corresponde
con esta parte de tu consulta original ->[cuyos valores provienen de una
tabla de la hoja uno (A1:G100) ]

2º.- por si acaso no existiese el valor buscado ignoramos el error

3º .- se busca en la 1ª columna de esa lista (.[bi40:bi1039].de la hoja
'Informe') con Find la celda que coincida con el valor seleccionado en la
lista de validacion (Worksheets("Plantilla tarea").[a1]) que en la consulta
inicial era Coche1, etc., y se asigna a la variable 'celda'

4º.- se copia/(carga en el portapapeles) la fila de la hoja 'Plantilla
tarea' en la que esta la correspondencia del valor seleccionado en la lista
de validacion ( se supone que es siempre la misma fila ("bi64:cx64")

5º.- se pega el contenido del portapapeles celda del registro
correspodiente/coincidente ('celda') de la hoja Informe

Sub DevolverConCambios2()
Dim celda As Range
With Worksheets("Informe")
' 1º
On Error Resume Next
' 2º
Set celda = .[bi40:bi1039].Find(Worksheets("Plantilla tarea").[a1]) ' 3º
Worksheets("Plantilla tarea").Range("bi64:cx64").Copy
' 4º
celda.PasteSpecial Paste:=xlPasteValues
' 5º
Application.CutCopyMode = False
Set celda = Nothing
End With
End Sub

un saludo y hasta pronto

hola William,

tengo una macro que utilizo casi a diario y que me hace la vida mucho mas
facil. Cada vez que la uso me acuerdo de la persona que me la facilto hace
mas de un año.

ahora me alegro de verla/verte de nuevo por aqui.

un saludo y hasta pronto
Ivan

PD: disculpa/d la salida de tema, pero no he querido dejar pasar la
oportunidad de saludarte.