Application.Evaluate error

[sailepaty]

Actualmente tengo codigo para sumar, contar por colores inclusive si estos provienen de formato condicional.

El codigo trabaja perfectamente en Excel version en ingles, el problema lo tengo cuando intento ejecutarlo en Excel version en español.

En la celda A2 tengo el formato condicional =Promedio(b1,b2)>7

La siguiente linea es la que me presenta problemas.

bValue = Application.Evaluate(Range("A2").FormatConditions(1).Formula1)

Sin embargo si la formula se encuentra en una celda el siguiente codigo trabaja bien.

bValue = Application.Evaluate(Range("A2").Formula)

Lo que he descubierto hasta ahora es que Excel tiene problemas para evaluar las formulas cuando provienen del formato condicional.

Se que podria escribir la formula en una celda y despues evaluarla, pero sucede que quiero aplicar la funcion a varias celdas y hacerlo de esa forma seria muy complicado.

Agradezco de antemano cualquier sugerencia.

Saludos

 

[Greg Truby]

¡Bienvenido a MrExcel!

¿Qué pasa si usted hace que las referencias en la fórmula condicional sean absolutas?

ej. =Promedio($b$1,$b$2)>7

 

[Juan Pablo González]

Si... esa es una gran limitación del objeto FormatConditions. No está diseñado para trabajar en versiones fuera del inglés.

La propiedad 'Formula1' devuelve la fórmula en español:

=PROMEDIO($B$1:$B$2)>1

pero la propiedad 'Formula' de la celda la devuelve en Inglés:

=AVERAGE($B$1:$B$2)>1

Se supone que uno puede crear un nombre y usar la función EVALUAR o EVALUATE en inglés, para ver qué valor tiene esta fórmula, pero hasta ahora no he podido hacer que funcione.

 

[sailepaty]

El problema es que Application.Evaluate necesesita que la formula este en ingles.

Asi que si efectuo la siguiente linea de codigo:

cFormula = Range("A2").FormatConditions(1).Formula1

cFormula es igual a =Promedio($b$1,$b$2)>7 y Application.Evaluate esta esperando que sea =Average($b$1,$b$2)>7.

Gracias por la respuesta.

 

[Greg Truby]

Sailepaty - ¿Usted estaba respondiendo al comentario mío o al de Juan Pablo?

 

[sailepaty]

Que tal Greg,

Estaba respondiendo tu comentario porque no habia visto el de Juan Pablo.

Sin embargo con el comentario de Juan me doy cuenta que no estoy tan mal.

Pero me interesaria si Juan Pablo puede compartir el articulo donde se dice que se puede crear un nombre y despues utilizar la funcion Evaluar o Evaluate.

Realmente no importa si se encuentra en Ingles.

Muchas gracias a los dos.

 

[Juan Pablo González]

En realidad no he leido algun articulo al respecto... creo que fue alguno de los MVPs que me mencionó esa opción, pero ahora estoy pensando que eso funciona cuando la fórmula es en inglés, porque estuve probando con esto:

Cree "manualmente" un nombre así

Test1

=EVALUAR("PROMEDIO(A1, A2)")

que funciona bien cuando lo utilizo en una celda de Exel. En VBA veo esto:

?Names("Test1").RefersTo
=EVALUATE("PROMEDIO(A1,A2)")
?Names("Test1").RefersToLocal
=EVALUAR("PROMEDIO(A1,A2)")

obviamente lo que está entre comillas no se traduce, lo cual está bien también, pero entonces al tratar de hacer esto:

?Evaluate("Test1")

me bota Error 2015, es decir, xlErrValue. También puedo crear el nombre sin problemas:

Names.Add "Test2", "=EVALUATE(""PROMEDIO(A1, A2)"")"

o

Names.Add "Test3", ,,,,,, "=EVALUAR(""PROMEDIO(A1, A2)"")"

y los puedo usar en Excel directamente sin problemas, pero no veo como evaluar esta formula desde VBA, sin tener que usar alguna celda intermedia... creo que la solución sería que existiera un Application.EvaluateLocal() para poder mandar la fórmula en el idioma en que está Excel, o, mejorar el objeto FormatConditions para que diga cual(es) condición está activa.

 

[sailepaty]

Muchas gracias Juan Pablo.

La verdad es que yo tambien he estado intentando evitar utilizar un celda intermedia.

Mientras encontramos la solución me podrias sugerir de que forma definir la celda a utilizar si estamos llamando a la funcion desde distintas celdas.

Me explico tengo en diferentes celdas de la hoja la funcion ObtenerColor(Celda) y no me imagino que celda utilizar para escribir la formula obtenida del formato condicional y despues con simple Evaluate(Cell(x,x).Formula) obtener lo que deseo.

Gracias

 

[Juan Pablo González]

La solución no existe.. desafortunadamente. No desde una función de VBA. Esto es porque una función no puede cambiar el valor de otra celda.

La única solución que se me ocurre es poner las mismas fórmulas en celdas, y mirar el resultado de esas celdas desde la función.