Problema con macro

Heich,

"Heich" wrote in message...

no recordaba que en VBA algunas (o todas) funciones tienen que ser en
Ingles
(como deberia, un solo idioma para programar, imaginemonos que pasa si en
lugar de español, programamos en Vba la funcion IF en aleman:

wenn a=1 damals
nachrichschatel "eins" 'Yuxtaposicion de Message y Box
sonst
nachrichschatel "nein eins"
finale wenn

If a=1 then
msgbox "Uno"
Else
Msgbox "no uno"
end if

aqui estoy de acuerdo

Entonces la cadena debera de ser
="If... ... ...

lo que ocurre en este caso (aunque no lo puedo demostrar por no tener Excel
en castellano) es q no pedimos a VBA q interprete IF como funcion sino la
pasamos directamente a la celda como cadena de texto. Creo q en este caso es
la hoja de calculo la q se hace cargo de interpretar la funcion, por lo cual
deberia exigir SI y no IF si la version es espanola.

Saludos,
KL

Ivan,

No es por poner el MsgBox SAL, sino por poder comprobar q la formula
resultante no tenga errores, como por ejemplo: separadores incorrectos,
numero de argumentos incorrectos, parentesis q faltan, nombres de funciones
incorrectos, etc, etc.

Como te he dicho la funcion q he construido a base de tu codigo me funciona.

Saludos,
KL


"Ivan" wrote in message
news:

gracias a todos, ya puse el msgbox para SAL
y si me muestra la formula, el problema es cuando quiero copuiar esta
formula
en la celda

Ivan

Hola KL

In news:,
KL typed

...
: lo que ocurre en este caso (aunque no lo puedo demostrar por no tener
: Excel en castellano) es q no pedimos a VBA q interprete IF como
: funcion sino la pasamos directamente a la celda como cadena de texto.
: Creo q en este caso es la hoja de calculo la q se hace cargo de
: interpretar la funcion, por lo cual deberia exigir SI y no IF si la
: version es espanola.
:
: Saludos,
: KL



Fijate que siempre me habia hecho la misma suposicion que tu en este
momento, pensaba que, si para Excel Español era SI, o para excel en aleman
seria WENN(por ejemplo), entonces desde vba tendria que escribir dicha
funcion justo en el idioma que correspondiera.

Hace rato no probe el codigo, tenia una lombriz hambrienta en el estomago.
Pero ahora, regresando de comer, puse tu codigo en el editor vba de excel,
y, tal cual con "IF" funciona de perlas, pero si cambio a "SI" hay error en
la celda. Hmmm probe con Value, Formula y FormulaR1C1 y la cadena en "SI" y
continuo el error.

Entonces, queda confirmado, mientras se trate de VBA, siempre es necesario
expresar la funcion en ingles, Excel se encargara de hacer la "traduccion "
en la hoja al idioma en que este se encuentre.


Saludos

Heich
-
cadena= _
"" : _
for a=0 to 9: cadena=replace(cadena,a,""): _
next a: ?cadena
-
Daria todo lo que se por saber la mitad de lo que ignoro.
-
NOTA: este mensaje se proporciona TAL CUAL.Sin ningun derecho o garantia
Guia de Netiquette:
http://www.geocities.com/heich_prog...uette.html

Siempre que tengo una duda, le pregunto primero a San Google
http://groups.google.com/groups?hl=...blic.es.vb
-

Heich,

Creo q tienes razon. Como ultimo rcurso - ?has probado .FormulaLocal?

Saludos,
KL


"Heich" <heichitoarrobahotmailpuntocom> wrote in message
news:

Hola KL

In news:,
KL typed

...
: lo que ocurre en este caso (aunque no lo puedo demostrar por no tener
: Excel en castellano) es q no pedimos a VBA q interprete IF como
: funcion sino la pasamos directamente a la celda como cadena de texto.
: Creo q en este caso es la hoja de calculo la q se hace cargo de
: interpretar la funcion, por lo cual deberia exigir SI y no IF si la
: version es espanola.
:
: Saludos,
: KL



Fijate que siempre me habia hecho la misma suposicion que tu en este
momento, pensaba que, si para Excel Español era SI, o para excel en
aleman
seria WENN(por ejemplo), entonces desde vba tendria que escribir dicha
funcion justo en el idioma que correspondiera.

Hace rato no probe el codigo, tenia una lombriz hambrienta en el estomago.
Pero ahora, regresando de comer, puse tu codigo en el editor vba de excel,
y, tal cual con "IF" funciona de perlas, pero si cambio a "SI" hay error
en
la celda. Hmmm probe con Value, Formula y FormulaR1C1 y la cadena en "SI"
y
continuo el error.

Entonces, queda confirmado, mientras se trate de VBA, siempre es necesario
expresar la funcion en ingles, Excel se encargara de hacer la "traduccion
"
en la hoja al idioma en que este se encuentre.


Saludos

Heich
-
cadena= _
"" : _
for a=0 to 9: cadena=replace(cadena,a,""): _
next a: ?cadena
-
Daria todo lo que se por saber la mitad de lo que ignoro.
-
NOTA: este mensaje se proporciona TAL CUAL.Sin ningun derecho o garantia
Guia de Netiquette:
http://www.geocities.com/heich_prog...uette.html

Siempre que tengo una duda, le pregunto primero a San Google
http://groups.google.com/groups?hl=...blic.es.vb
-

In news:,
KL typed:
: Heich,
:
: Creo q tienes razon. Como ultimo rcurso - ?has probado .FormulaLocal?
:
: Saludos,
: KL


A ver...
(abriendo excel, alt+f11, copio y pego, cambio If por SI, alt+f4, alt+f8,
enter)

!!!! Funciona!!!!
Algo nuevo se ha aprendido!!

Y como no sabia de la existencia de la propiedad formulalocal consultemos la
ayuda...
para quien este interesado
<Pego>
...Devuelve o establece la fórmula del objeto, usando referencias de estilo
A1 en lenguaje del usuario. Variant de Lectura/Escritura para objetos Range,
String de Lectura/Escritura para objetos Series.
...
</Pego>

Saludos



Heich
-
cadena= _
"" : _
for a=0 to 9: cadena=replace(cadena,a,""): _
next a: ?cadena
-
Daria todo lo que se por saber la mitad de lo que ignoro.
-
NOTA: este mensaje se proporciona TAL CUAL.Sin ningun derecho o garantia
Guia de Netiquette:
http://www.geocities.com/heich_prog...uette.html

Siempre que tengo una duda, le pregunto primero a San Google
http://groups.google.com/groups?hl=...blic.es.vb
-