Macro para copiar una formula

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

1 Respuesta

Respuesta
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

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

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"?

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas