AYUDA CON FORMULA

hola, Deyvi !

... necesito al tener un rango seleccionado pueda introducir mediante codigo una formula a una celda "X"
... si hago una macro me sale el sgte codigo.
Range("M7").Select
ActiveCell.FormulaR1C1 = "=+MDETERM(R[-5]C[-11]:RC[-6])"
Range("M7").Select
... necesito que esa formula se aplique con la seleccion que se de en ese momento, la seleccion varia de tama#o.

1) 'que' es lo que podria variar en tama#o ?
-> el Range("M7").Select -?-
-> el ... R[-5]C[-11]:RC[-6] ... -?-

2) de que 'depende' la variacion del tama#o ?

comentas algun detalle mas... 'concreto' ?
saludos,
hector.

Hola Héctor, lo que varia de tamaño es la selección que se aplicará en la
fórmula.
ActiveCell.FormulaR1C1 = "=+MDETERM(R[-5]C[-11]:RC[-6])"
el detalle es que de acuerdo a la selección q tenga en un momento la fórmula
se acomodé a ella. El tamaño varia de acuerdo a la cantidad de filas y
columnas de la matriz.

Muchas gracias por la atención

Deyvi



"Héctor Miguel" escribió en el mensaje
news:

hola, Deyvi !

... necesito al tener un rango seleccionado pueda introducir mediante
codigo una formula a una celda "X"
... si hago una macro me sale el sgte codigo.
Range("M7").Select
ActiveCell.FormulaR1C1 = "=+MDETERM(R[-5]C[-11]:RC[-6])"
Range("M7").Select
... necesito que esa formula se aplique con la seleccion que se de en ese
momento, la seleccion varia de tama#o.

1) 'que' es lo que podria variar en tama#o ?
-> el Range("M7").Select -?-
-> el ... R[-5]C[-11]:RC[-6] ... -?-

2) de que 'depende' la variacion del tama#o ?

comentas algun detalle mas... 'concreto' ?
saludos,
hector.

hola, Deyvi !

... lo que varia de tama#o es la seleccion que se aplicara en la formula.
ActiveCell.FormulaR1C1 = "=+MDETERM(R[-5]C[-11]:RC[-6])"
el detalle es que de acuerdo a la seleccion q tenga en un momento la formula se acomode a ella.
El tama#o varia de acuerdo a la cantidad de filas y columnas de la matriz...

[me temo que]... 'sigo en las mismas' :)) no queda muy 'claro' cual es la 'matriz' -?-

1) lo unico que puedo 'deducir', es que si la celda 'activa' es ''M7'...
la formula que se obtiene es: -> =mdeterm(b2:g7)

2) lo que no se aprecia es 'la matriz' [en este caso: 'B2:G7'] es decir...
a) debe ser SIEMPRE a partir de la columna 'B' y/o desde la fila 2...
o... solamente 5 filas arriba y 11 columnas a la izquierda de la celda activa -?-
b) debe ser SIEMPRE hasta la columna 'G' y/o hasa la fila 7...
o solamente hasta 6 columnas a la izquierda y la misma fila que la celda activa -?-

3) cual deberia ser 'la matriz', si suponemos que la celda activa fuera [p.e.] 'AB45' -???-
o algun ejemplo +/- 'apegado' a tus datos reales -?-

saludos,
hector.

hola, Deyvi !

... necesito que dependiendo del tama#o... la formula abarque toda la matriz
... esta matriz... siempre el numero de columnas sera igual al numero de filas (matriz cuadrada).
... la formula puede ir en cualquier celda, la matriz siempre empezara en la celda "B3"...

-> si la matriz inicia siempre en 'B3' [entre algunas otras variantes y posibilidades]...

op1: si el caso es que la fila 2 va a estar siempre vacia...
=ActiveCell.Formula = "=mdeterm(" & [b3].CurrentRegion.Address(0, 0) & ")"

op2: si el caso es que la fila 2 NO va a estar vacia...
ActiveCell.Formula = "=mdeterm(" & Range([b3], [b3].End(xlToRight).End(xlDown)).Address(0, 0) & ")"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Héctor, como siempre acertado con tu ayuda, la opción 01 era la que me
cayó a pelo, la ipción 02 está muy interesante tambien.

Muchísimas gracias :) ... :)

Saludos
Deyvi



"Héctor Miguel" escribió en el mensaje
news:%

hola, Deyvi !

... necesito que dependiendo del tama#o... la formula abarque toda la
matriz
... esta matriz... siempre el numero de columnas sera igual al numero de
filas (matriz cuadrada).
... la formula puede ir en cualquier celda, la matriz siempre empezara en
la celda "B3"...

-> si la matriz inicia siempre en 'B3' [entre algunas otras variantes y
posibilidades]...

op1: si el caso es que la fila 2 va a estar siempre vacia...
=ActiveCell.Formula = "=mdeterm(" & [b3].CurrentRegion.Address(0, 0)
& ")"

op2: si el caso es que la fila 2 NO va a estar vacia...
ActiveCell.Formula = "=mdeterm(" & Range([b3],
[b3].End(xlToRight).End(xlDown)).Address(0, 0) & ")"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.