Cómo poner un caracter al contenido de una fórmula???

Hola Angel:
mas o menos sería así:

for each c in MiRange
c.value = "'" & c.value
next

debes de cambiar MiRange por el rango afectado
Un saludo.

"angel" escribió en el mensaje
news:089c01c3faff$cdefdfc0$
En la fila 5 de la columna C a la R tengo una serie de
fórmulas.
Cómo hago mediante código VBA para agregarle al contenido
de todas las fórmulas el caracter ' (comilla simple)
adelante de la fórmula??????

Y cómo haría para luego sacar la comilla en cada una de
las fórmulas?

No sé si esto te puede ser útil, pero mediante Menú /
Herramientas / Opciones, si en la ficha 'Ver',
apartado 'Opciones de ventana', activas la
casilla 'Fórmulas', visualizarás en las hojas las
fórmulas como si fueran texto.

:-)

Hola Angel:
mas o menos sería así:

for each c in MiRange
c.value = "'" & c.value
next

debes de cambiar MiRange por el rango

afectado

Un saludo.

"angel" escribió

en el mensaje

news:089c01c3faff$cdefdfc0$
En la fila 5 de la columna C a la R tengo una serie de
fórmulas.
Cómo hago mediante código VBA para agregarle al contenido
de todas las fórmulas el caracter ' (comilla simple)
adelante de la fórmula??????

Y cómo haría para luego sacar la comilla en cada una de
las fórmulas?


.

Y como haría luego para sacarle la comilla??????

Gracias!!!!

PD: Lo que me dices Victor de mostrar fórmulas como texto
NO lo puedo hacer porque solo quiero que no se ejecuten
algunas fórmulas.

Hola Angel:
mas o menos sería así:

for each c in MiRange
c.value = "'" & c.value
next

debes de cambiar MiRange por el rango

afectado

Un saludo.

"angel" escribió

en el mensaje

news:089c01c3faff$cdefdfc0$
En la fila 5 de la columna C a la R tengo una serie de
fórmulas.
Cómo hago mediante código VBA para agregarle al contenido
de todas las fórmulas el caracter ' (comilla simple)
adelante de la fórmula??????

Y cómo haría para luego sacar la comilla en cada una de
las fórmulas?


.

Hola:
Pues mas o menos de esta guisa:

For Each c In Range("MiRange")
c.Value = Right(c.Value, Len(c.Value) - 1)
Next

Un saludo.

Perdona pero te respondí muy alegremente, la primera de las macros te
quedara asi:
Sub nn()

Sub AnadirChar()
For Each c In Range("MiRange")
c.Value = "''" & c.Value
Next
He puesto doble comilla por exigencias del guion.
End Sub
y la segunda es esta otra, que comprueba que el caracter que
borramos es "'"
Sub QuitarChar()
For Each c In Range("MiRange")
x = Left(c.Value, 1)
If x = Chr(39) Then
c.Value = Right(c.Value, Len(c.Value) - 1)
End If
Next

End Sub

Un saludo.