Seleccionar rango

hola, Ignacio !

Como puedo releccionar un rango de celdas mediante una macro, cuando la ultima celda
(es decir el vertice inferior derecho) vienen dadas por una variable propòrcionado por fila , col
es decir que no se "a priori" que posiciones van tener.

en tanto comentas 'como saber' cuantas filas y columnas [antes o despues] 'debieran' ser incluidas...
prueba con la propiedad 'CurretRegion' [p.e.]
suponiendo que 'ese' vertice lo defines +/- asi: Cells(Fila, Col)
'complementalo' a: -> Cells(Fila, Col).CurrentRegion

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

Gracias Hector Miguel!
Lo he solucionado despues de darle muchas vueltas utilizando la expresion:
Range(Cells(1, 1), Cells(fila, 6)).Select
despues de que la variable fila ha sido debidamente actualizada mediante la
expresion:
fila = ActiveCell.Row
De momento me funciona, si tengo algún problema utilizaré tu sistema.
Gracias por tu ayuda
De paso tengo otro problema que te agradeceré ayudita:
La expresion :
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
efectua la suma de las tres celdas anteriores a la celda activa en la misma
columna. Pero desearia utilizar una expresion equivalente que me peremita
introducir una variable (por ej.numceldas) en lugar de -3, ya que este
patarametro es variable y no lo conozco de antemano.
Gracias y perdona por el rollo.

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

hola, Ignacio !

Como puedo releccionar un rango de celdas mediante una macro, cuando la
ultima celda
(es decir el vertice inferior derecho) vienen dadas por una variable
propòrcionado por fila , col
es decir que no se "a priori" que posiciones van tener.

en tanto comentas 'como saber' cuantas filas y columnas [antes o despues]
'debieran' ser incluidas...
prueba con la propiedad 'CurretRegion' [p.e.]
suponiendo que 'ese' vertice lo defines +/- asi: Cells(Fila, Col)
'complementalo' a: -> Cells(Fila, Col).CurrentRegion

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

Hola Ignacio,

Quieres poner algo asi verdad?

ActiveCell.FormulaR1C1 = "=SUM(R[-N]C:R[-1]C)"

Prueba con esto

Declara N como variable entera.

Dim N as Integer

ActiveCell.FormulaR1C1 = "=SUM(R[-" & N & "]C:R[-1]C)"

Espero que sea lo que buscabas, un saludo.

Juan Antonio Castillo

He puesto
Dim N as integer
ActiveCell.FormulaR1C1 = "=SUM(R[-"&N&]"C:R[-1]C)"
De esta forma me da eror de compilacion
Si le quito las comillas a &N& me da eror en tiempo de ejecución

"smartito" escribió en el mensaje
news:

Hola Ignacio,

Quieres poner algo asi verdad?

ActiveCell.FormulaR1C1 = "=SUM(R[-N]C:R[-1]C)"

Prueba con esto

Declara N como variable entera.

Dim N as Integer

ActiveCell.FormulaR1C1 = "=SUM(R[-" & N & "]C:R[-1]C)"

Espero que sea lo que buscabas, un saludo.

Juan Antonio Castillo

Me parece que ya funciona la culpa la tenían los espacios entre &N&. He
puesto los espacios y aparentemente va. Gracias por tu ayuda

"Ignacio" escribió en el mensaje
news:

He puesto
Dim N as integer
ActiveCell.FormulaR1C1 = "=SUM(R[-"&N&]"C:R[-1]C)"
De esta forma me da eror de compilacion
Si le quito las comillas a &N& me da eror en tiempo de ejecución

"smartito" escribió en el mensaje
news:

Hola Ignacio,

Quieres poner algo asi verdad?

ActiveCell.FormulaR1C1 = "=SUM(R[-N]C:R[-1]C)"

Prueba con esto

Declara N como variable entera.

Dim N as Integer

ActiveCell.FormulaR1C1 = "=SUM(R[-" & N & "]C:R[-1]C)"

Espero que sea lo que buscabas, un saludo.

Juan Antonio Castillo