Quitar el igual de las formulas.

En un módulo ordinario:
Function TextoF(InputCell As Range) As String
TextoF = Mid(InputCell.FormulaLocal, 2)
End Function

Suponiendo que la celda con la fórmula es A2, en la celda que quieras el
resultado:
=textoF(A2)


Saludos desde Tenerife (Islas Canarias).
************************************************
"~ jose ~" escribió en el mensaje
news:
Hola que hay?
tengo en una celda esta formula:
=SUMA(E26;E37;E48;G15;G37;G48)
Como puedo poner en otra celda la fórmula sin el igual?
quiero decir en otra celda que aparezca:
SUMA(E26;E37;E48;G15;G37;G48)
me dá igual que sea mediante código o mediante formula.

Un saludo
jose

Buenos días AnSanVal, y mis saludos a esa maravillosa isla que es
Tenerife!,

Disculpa la intromisión, pero intentando aprender de la gente experta
de este grupo, he intentado aplicar la fórmula =textoF sin éxito.
(trabajo con office 2007).
Hasta hoy, para saber la sintaxis de la celda con una fórmula editaba
la celda donde estaba la fórmula, la copiaba y lka pegaba en la celda
de la derecha precedida de un apóstrofe('). Por ello me interesa mucho
la fórmula que propones, pero no he conseguido que funcione.
Qué hago mal?

Gracias de antemano por tu ayuda y de nuevo un saludo,

Rafael


On 25 oct, 01:23, "AnSanVal"
wrote:

En un módulo ordinario:
Function TextoF(InputCell As Range) As String
TextoF = Mid(InputCell.FormulaLocal, 2)
End Function

Suponiendo que la celda con la fórmula es A2, en la celda que quieras el
resultado:
=textoF(A2)

Saludos desde Tenerife (Islas Canarias).

Disculpa mi torpeza, no había insertado el módulo y pensaba que TextoF
era una función existente.
Gracias otra vez y discúlpame de nuevo.

Un saludo,

Rafael

Muy bien gracias.

En un módulo ordinario:
Function TextoF(InputCell As Range) As String
TextoF = Mid(InputCell.FormulaLocal, 2)
End Function

Suponiendo que la celda con la fórmula es A2, en la celda que quieras el
resultado:
=textoF(A2)

Saludos desde Tenerife (Islas Canarias).
************************************************
"~ jose ~" escribió en el mensajenews:
Hola que hay?
tengo en una celda esta formula:
=SUMA(E26;E37;E48;G15;G37;G48)
Como puedo poner en otra celda la fórmula sin el igual?
quiero decir en otra celda que aparezca:
SUMA(E26;E37;E48;G15;G37;G48)
me dá igual que sea mediante código o mediante formula.

Un saludo
jose

Un saludo... desde Peru...
es posible... indiques el objetivo de la copia...
considero hacerlo hacerlo con macro...
"~ jose ~" wrote:

Muy bien gracias.

> En un módulo ordinario:
> Function TextoF(InputCell As Range) As String
> TextoF = Mid(InputCell.FormulaLocal, 2)
> End Function
>
> Suponiendo que la celda con la fórmula es A2, en la celda que quieras el
> resultado:
> =textoF(A2)
>
> Saludos desde Tenerife (Islas Canarias).
> ************************************************
> "~ jose ~" escribió en el mensajenews:
> Hola que hay?
> tengo en una celda esta formula:
> =SUMA(E26;E37;E48;G15;G37;G48)
> Como puedo poner en otra celda la fórmula sin el igual?
> quiero decir en otra celda que aparezca:
> SUMA(E26;E37;E48;G15;G37;G48)
> me dá igual que sea mediante código o mediante formula.
>
> Un saludo
> jose