Quiero pasar datos de una hoja a otra con VBA pero me copia las fórmulas del vinculo más no los valores

H0la Jesús:

Supongamos que el dato está en la celda A1 de la hoja 1 y lo quieres copiar a la celda D1 de la hoja 3, el código para realizar la copia sería:

Sheets("Hoja3").Range("D1").Value = Sheets("Hoja1").Range("A1").Value

Cométame si eso resuelve tu problema.

S@lu2

Muchas Gracias Isaac! 

en ese punto lo estaba resolviendo de esta manera:

Sheets("Hoja2").Range("J7:J10").Copy Destination:=Sheets("Hoja1").Range("D7")

 sin embargo la que me dices es mejor, pero no me lo actualiza en la hoja 1 cuando el valor cambia en la hoja 2, sabes la manera para que al vincular esas dos celdas al actualizarse la raíz se actualice la celda vinculada en la hoja 1? no se si me explico, quedo atento a tu respuesta. Gracias!!

Intenta de esta manera

Sheets("Hoja3"). Range("D1").Formula = Sheets("Hoja1"). Range("A1"). Formula

S@lu2

Ojo, que tú lo copias de una celda y lo pegar en un rango de celdas, no sé si lo que quieres es que se replique la fórmula en cada celda o que cada celda tome la referencia que corresponde a su fila.

Me comentas!

Gracias Isaac!

Te cuento que el código si pasa el dato pero no se actualiza en la hoja 1 cuando se cambia en las hoja 2. No se como podría hacer para pasarte el archivo de muestra para que veas más la idea.

Listo Isaac!

Ya logre resolverlo para que actualizara antes de copiar, lo hice de la siguiente manera:

Sub programarmacros()
Tiempo = Now + TimeValue("00:00:01")
Application.OnTime Tiempo, "grabar_datos", , True
End Sub

Así los datos se actualizan antes de copiarlos, Gracias por tu tiempo!