Agregar formula desde Macro, con comillas

28/10/2003 - 21:13 por Ernesto Jerez | Informe spam

El comando funciona, puesto que con Sum(J20:J28)
funciona, pero el problema creo que viene por el IF,
porque incluso si cambio " por chr(34) o bien "Error" por
A1 por ejemplo... También sigue el mismo error.

Worksheets("Sheet1").Range("J" & UltimaFila + 1).Formula
= "=If(Sum(J20:J28)>100;"Error";Sum(J20:J28))

Estoy agregando líneas y tengo que agregar una línea al
rango cada vez... J20:J28, J20:J29

Si alguien tiene alguna idea, es bienvenida.
Saludos,
Ernesto Jerez.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

¿Que ha ocurrido con la opción desde escaner para agregar imágen ?

Leer las respuestas

#1 Héctor Miguel

28/10/2003 - 21:38 | Informe spam

Hola, Ernesto !

... funciona ... pero el problema creo que viene por el IF [...]
Worksheets("Sheet1").Range("J" & UltimaFila + 1).Formula = "=If(Sum(J20:J28)>100;"Error";Sum(J20:J28))
... tengo que agregar una línea al rango cada vez... J20:J28, J20:J29

el 'problema' NO es el 'if' sino...
1.- el 'separador' de argumentos 'debe ser' coma [no punto y coma] =>a menos que uses FormulaLocal< [lo que 'implicaria' que 'donde corra' [la macro] 'tenga' la misma configuracion =>e idioma<=]
2.- si en la formula vas a 'dejar' textos [entre-comillados], las comillas deben ser 'dobles'

prueba con la siguiente modificacion:
Worksheets("Sheet1").Range("J" & UltimaFila + 1).Formula = _
"=If(Sum(j20:j" & UltimaFila & ")>100,""Error"",Sum(j20:j" & UltimaFila & "))"

Saludos,
Héctor.

Responder a este mensaje

#2 Ernesto Jerez

28/10/2003 - 21:49 | Informe spam

Gracias Héctor!!! Definitivamente eran las comas.