Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Agregar formula desde Macro, con comillas

28/10/2003 - 21:13 por Ernesto Jerez | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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.

Preguntas similares

 

Busqueda sugerida :