Macro para copiar una formula

Question

el 2 jul. 14

Hola, necesito que alguien me ayude.

Necesito una macro que me copie la formula (no el valor) que hay en una celda y la pegue en la ultima celda vacía de una columna que tiene datos.

Muchas gracias

Saludos

Dante Amor, https://www.youtube.com/@CursosDeExcelyMacros · Accepted Answer · 2014-07-02T18:44:13.0000000Z

Respuesta de Dante Amor

1

Esta es la macro.

Sub copiarformula()
'Por.DAM
celda = "D4"
col = "F"
u = Range(col & Rows.Count).End(xlUp).Row + 1
Range(celda).Copy Range(col & u)
End Sub

Cambia celda "D4" por la celda que quieres copiar

Cambia col "F" por la letra de la columna en donde quieres pegar la fórmula

el 2 jul. 14

Hola Dam,

no me funciona. En la celda D4 he puesto la formula "=A1+B1" y me devuelve en la celda F2 "=#¡REF!+#¡REF!".

Necesito que en la celda F2 salga la formula "=A1+B1"

Muchas gracias y un saludo

el 3 jul. 14

Incluso si copias esa fórmula y la pegas en F2 te envía un error.

Lo que quieres es que te copie la fórmula tal cual, ¿es decir quieres que en F2 también te ponga "=A1+B1"?

el 3 jul. 14

Si quieres la misma fórmula, usa esta

Sub copiarformula()
'Por.DAM
celda = "D4"
col = "F"
u = Range(col & Rows.Count).End(xlUp).Row + 1
Range(col & u) = Range(celda).Formula
End Sub

Saludos.DAM

No olvides finalizar la pregunta

el 3 jul. 14