A vueltas con las comillas dentro de comillas

Hola, Javi.

Seguro que hay alguna forma mejor, pero yo me dejo llevar por los viejos
hábitos. En lo personal, prefiero concatenar las comillas por su código.
Sería algo como esto:

Range("A1").Formula =
"=IF(OR(D44=1;ISERROR(VLOOKUP(D44;[BdDDatos.xls]Notas1!$A:$B;2;FALSE)));" &
Chr(34) & Chr(34) & ";VLOOKUP(D44;[BdDDatos.xls]Notas1!$A:$B;2;FALSE))"

Algo importante, también recuerda que en VBA para Excel, debes escribir las
funciones en inglés...


Cordialmente,


"javi" escribió:

Hola a todos

Hace tiempo que planteé esta consulta pero lo pude arreglar de otra
forma, no fui capaz de hacerlo como me recomendastéis (de todas formas
gracias)

El caso es que necesito poner una fórmula con comillas dentro de
comillas, he releido el mensaje de la otra vez, he probado y no me
funcioa de ninguna manera ¿podéis ayudar a un zoquete?

la fórmula en cuestión es esta:

Range("Nota.1").Formula > "=SI(O(D44=1;ESERROR(BUSCARV(D44;[BdDDatos.xls]Notas1!$A:$B;2;FALSO)));"";BUSCARV(D44;[BdDDatos.xls]Notas1!$A:$B;2;FALSO))"

Como siempre muchas gracias

Javi

Hola, formas hay muchas, hay que usar la que mas te guste, convenga o te
aclares mejor:

1) Usar 2 Chr$(34). Ejemplo: "=SI(A1±;" & Chr$(34) & Chr$(34) & "SI" &
Chr$(34) & Chr$(34) & ";" & Chr$(34) & Chr$(34) & "NO" & Chr$(34) & Chr$(34)
& ")"

A mi no me gusta demasiado

2) Usar dobles comillas: "=SI(A1±;""SI"";""NO"")"

Mucho mejor y mas claro... pero a veces, si la formula es muy liada, no lo
es tanto, entonces:

3) Usar comillas simples: "=SI(A1±;'SI';'NO')"
y luego usar la funcion Replace("=SI(A1±;'SI';'NO')","'","""")

Espero que te sirva
Saludos

"javi" escribió en el mensaje
news:
Hola a todos

Hace tiempo que planteé esta consulta pero lo pude arreglar de otra
forma, no fui capaz de hacerlo como me recomendastéis (de todas formas
gracias)

El caso es que necesito poner una fórmula con comillas dentro de
comillas, he releido el mensaje de la otra vez, he probado y no me
funcioa de ninguna manera ¿podéis ayudar a un zoquete?

la fórmula en cuestión es esta:

Range("Nota.1").Formula "=SI(O(D44=1;ESERROR(BUSCARV(D44;[BdDDatos.xls]Notas1!$A:$B;2;FALSO)));"";BU
SCARV(D44;[BdDDatos.xls]Notas1!$A:$B;2;FALSO))"

Como siempre muchas gracias

Javi