Como utilizar formulas de excel desde vb - VB-MUNDO

Claudia · #1 (**permalink**) 25-03-2005, 21:50:31

Hola a todos necesito saber como sumar un rango de celdas de excel desde visual basic , en realidad quisiera saber como utilizar las formulas de excel en visual probe usando el codigo de una macro pero me sale error espero pueden ayudarme gracias

ChuckyAr · #2 (**permalink**) 26-03-2005, 15:22:12

Claudia:

encontre algo y lo adapte un poco
Mediante del objeto Range usando la propiedad FormulaR1C1

Código:

Dim objetoExcel As Object
Set objetoExcel = CreateObject("Excel.Application")
With objetoExcel
   .Workbooks.Open("c:\Claudia.xls").Activate
       With .Activeworkbook.Sheets("Hoja1")' o la hoja que sea
' multiplica por 2 a D de la misma fila (estando en a)
' multiplica por 2 a E de la misma fila (estando en b)
           .Cells(1, 1).FormulaR1C1 = "=RC[3]*2" 
        End With
    .Visible = True
End With
Set objetoExcel = Nothing

Fijate que onda

Suerte

Claudia · #3 (**permalink**) 26-03-2005, 15:40:44

Hola ChuckyAr gracias por la ayuda :smt003 pero tengo un inconveniente :smt009
Si pongo de estas formas la formula en el excel me sale lo siguiente #¿NOMBRE?, si me coloco en el resultado y le pongo enter me sale la suma de las celdas k elegi pero aun no se por k no me sale el resultado desde un principio

Si pongo de las siguiente manera la formula en el excel me muestra lo que puse a continuacion

.Cells((cuenta + 8), 2).FormulaR1CI=SUMA(B5:B" & (cuenta + 4)& ")"
=SUMA('B5':'B16')
De esta forma me sale error no se logran calcular los valores

Y si la pongo de esta manera me sale lo siguiente
.Cells((cuenta + 8), 2).Formula = "=SUMA(B5:B" & (cuenta + 4)& ")"
=SUMA(B5:B16)
De esta forma me sale #¿NOMBRE?, pero si le doy enter en la formula me calcula el resultado

Que diferencia hay entre usar FormulaR1CI y Formula alguien sabe por k razon no me sale la formula???? :smt017

ChuckyAr · #4 (**permalink**) 27-03-2005, 13:12:41

Claudia:

Formula no sabai que existia, pero formular1c1, si y la estas usando mal me parece

vos pusiste:

Código:

.Cells((cuenta + 8), 2).FormulaR1CI=SUMA(B5:B" & (cuenta + 4)& ")"

y es:

Código:

.Cells((cuenta + 8), 2).FormulaR1CI="SUMA(B5:B" & (cuenta + 4)& ")"

¿o me equivoco?

FormulaR1C1 se usa:
FormulaR1C1= "R[-8]C[-3]*R[1]C"
y no:
FormulaR1C1= R[-8]C[-3]*R[1]C"

Osea me parece qeu te falta las comillas inicial, sino tendría que dar un error en sintaxis.

1.- Si no lo solucionaste pasame el codigo
2.- Si probas poner esa formula sin la comilla inicial desde un macro Excel te tira: "Error de compilacion: Error de sintaxis"

Suerte!!!! Felices Pascuas

Claudia · #5 (**permalink**) 28-03-2005, 15:12:53

Hola ChuckyAr:

Reconozco haber omitido la comilla inicial en el mensaje anterior pero no la omiti en la macro cuando utilizo FormulaR1CI la formula que obtengo en el excel es la siguiente =SUMA('B5':'B16') como te daras cuenta el excel no permite esta sintaxis en la formula pero no me bota ningun error durante la ejecucion del programa, al finalizar la macro solo me muestra los siguiente #¿NOMBRE?, aun no le encuentro ninguna solucion al problema

Felices Pascuas a ti tambien

J.M.Movilla · #6 (**permalink**) 28-03-2005, 17:33:02

Tú puedes insertar en uan fórmula lo que te plazca... Ni Excel ni Visual van a detectarte error con tal de que se trate de una variable String. Unicamente que, si el contenido de la fórmula no es interpretable, te devuelve un valor de #¿NOMBRE?, que quiere decir precisamente "Pero ¿qué me pides...?

Claudia · #7 (**permalink**) 28-03-2005, 18:08:22

Hola Jose Maria,
Lo que me parece raro es que me salga #¿NOMBRE? y si me coloco en la celda y le doy enter me calcule la suma de las celdas que seleccione eso es lo que no entiendo aun

ChuckyAr · #8 (**permalink**) 30-03-2005, 23:19:15

Claudia:

Disculpá la tardanza

Vos pones SUMA:

Código:

.Cells((cuenta + 8), 2).Formula = "=SUMA(B5:B" & (cuenta + 4)& ")" 
'=SUMA(B5:B16)

Si pones SUM no esta el problema, segun lo que prové:

Código:

.Cells((cuenta + 8), 2).Formula = "=SUM(B5:B" & (cuenta + 4)& ")" 
'=SUMA(B5:B16)

Suerte

Claudia · #9 (**permalink**) 31-03-2005, 14:16:57

Gracias por la respuesta yo ya me habia dado cuenta del Horror que habia cometido muchas gracias :smt003