Excel - Copiar letra + una celda en una macro

Lo que quiero hacer es meter en una celda una función, por ejemplo: x^2+3.
Lo que la macro debe hacer es copiar en otra celda la misma función pero con un "=" delante para que en la primera celda salga la función pero en la segunda salga el valor de Y correspondiente al valor de X que se le da. No se si me explico.

Gracias!

hay un pequeño detalle/problema...
si ponés =x^2+3 Excel no va a reconocer la fórmula, porque x (la variable) 'no existe en Excel'...
tenés que reemplazar cada variable por un valor numérico o una expresión que sí sea
reconocida por Excel...

Saludos, desde Baires, JuanC

Dentro de una hoja de cálculo que he encontrado en google aparece esto:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Forgetit
Numpoints = 200
For Each c In Target
If (c.Row = 13 And c.Column = 7) Then
theText$ = fixString(Range("G13").Text)
Range(Cells(3, 12), Cells(Numpoints + 3, 12)).Formula = "=" & theText$
Exit For

El problema es que muchas cosas no las entiendo y no se como hacer lo mismo en mi hoja, donde no hay nada de código escrito.
En teoría debería entenderlo como variable ya que a un rango de celdas las he llamado x, por lo que por ejemplo x se referiría a B13, para un fácil entendimiento.

Gracias!

Muy buenas.

Todo ese código que has puesto sirve para copiar el destino a varias celdas. En tu caso valdría con algo más sencillo como poner en el código de la hoja esto:

Private Sub worksheet_change(ByVal target As Range)
If target = Range("E5") Then
Range("E6").Formula = "=" & target
End If
End Sub

Donde E5 sería donde tú pusieses el texto de la fórmula y E6 donde te colocaría el resultado.

Un saludo. Juanjo.

Muchas gracias, el código funciona perfectamente, aunque querría hacerle unos retoques.
Me gustaría que lo copiara en un rango de celdas y que pudiera también añadirle letras, porque el código peta cuando, por ejemplo, se quiere introducir un seno o un coseno en vez de una función polinómica.

Gracias!

Muchas gracias, el código funciona perfectamente, aunque querría hacerle unos retoques.
Me gustaría que lo copiara en un rango de celdas y que pudiera también añadirle letras, porque el código peta cuando, por ejemplo, se quiere introducir un seno o un coseno en vez de una función polinómica.

Gracias!

Buenos días.

Efectivamente, da problemas para ese tipo de funciones. Lo desconocía. Se evita utilizando FormulaLocal en lugar de Formula. Te dejo la nueva macro, incorporando también el que lo haga para un rango predeterminado. Podría hacerse, lógicamente para un rango variable:

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("E5")) Is Nothing Then
Range("E6:E12").FormulaLocal = "=" & target
End If
End Sub

Un saludo. Juanjo.