Problema con macro

04/01/2005 - 20:11 por Ivan | Informe spam
Hola a todos y feliz 2005, tengo un prob en una serie de celdas quiero colocar
la siguiente formula ( por ejemplo en M10 seria ):

=SI(C10<>"",SI(G10<>"",SI(I10<>"",G10-I10,SI(H10<>"",SI(H10<$P$1,G10-I10,""),G10)),SI(H10<>"",SI(H10<$P$1,$D$7-I10,SI(I10<>"",-I10,"")),SI(I10<>"",-I10,""))),"")
He realizado la rutina para realizarlo y me trabaja, solo que al momento de
colocar el valor en la celda me marca un error, no si en que pueda estar mal,
lo intento hacer de la sig manera:
sa = "<>" & """" & """" para generar <>""
sb = """" & """" para generar ""
SAL = "=SI(C" & k & sa etc,
Worksheets("EDO_CTA").Cells(k, 16).Value = SAL aqui es donde me marca
el error

agradesco de antemano cualquier comentaerio o sugerencia
 

Leer las respuestas

#1 Heich
04/01/2005 - 20:17 | Informe spam
Hola Ivan
Si ya comprobaste que la cadena SAL contiene la formula sin errores,

en lugar de
Worksheets("EDO_CTA").Cells(k, 16).Value
usa Worksheets("EDO_CTA").Cells(k, 16).Formula

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:,
Ivan typed:
: Hola a todos y feliz 2005, tengo un prob en una serie de celdas
: quiero colocar la siguiente formula ( por ejemplo en M10 seria ):
:
:
=SI(C10<>"",SI(G10<>"",SI(I10<>"",G10-I10,SI(H10<>"",SI(H10<$P$1,G10-I10,"")
,G10)),SI(H10<>"",SI(H10<$P$1,$D$7-I10,SI(I10<>"",-I10,"")),SI(I10<>"",-I10,
""))),"")
: He realizado la rutina para realizarlo y me trabaja, solo que al
: momento de colocar el valor en la celda me marca un error, no si en
: que pueda estar mal, lo intento hacer de la sig manera:
: sa = "<>" & """" & """" para generar <>""
: sb = """" & """" para generar ""
: SAL = "=SI(C" & k & sa etc,
: Worksheets("EDO_CTA").Cells(k, 16).Value = SAL aqui es donde
: me marca el error
:
: agradesco de antemano cualquier comentaerio o sugerencia

Preguntas similares