Rango dinamico

Hola:

Para seleccionar desde A5 hasta el final del rango, yo prueba algo asi:

Range("A5").CurrentRegion.Select
Application.Intersect(Selection, Range("A5:A65535")).Select

Saludos

"Francisco Durante" escribió en...

Buenas grupo!
Tengo una hoja que crece o dsiminuye dinámicamente, pero siempre empieza a
llenarse desde la celda A1. A veces el rango es "A1:BA28" u otras veces el
rango puede ser "A1:BA60".
Mediante VB quiero que se seleccione dicho rango, pero excluyendo las 4
primeras filas, por lo que debería empezar siempre por A5.

Tengo este código:

Range("A5").Select
Selection.CurrentRegion.Select
Selection.Name = "RANGO"

Pero me selecciona desde A1, aún cuando tengo definido el rango "RANGO"
desde A5.
¿Alguna ayuda al respecto?
Gracias!!

hola, Francisco !

Tengo una hoja que crece o dsiminuye dinámicamente, pero siempre empieza a llenarse desde la celda A1.
A veces el rango es "A1:BA28" u otras veces el rango puede ser "A1:BA60".
Mediante VB quiero que se seleccione dicho rango, pero excluyendo las 4 primeras filas, por lo que debería empezar siempre por A5.
Tengo este codigo:
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Name = "RANGO"
Pero me selecciona desde A1, aun cuando tengo definido el rango "RANGO" desde A5.
Alguna ayuda al respecto?...

es probable que no sea necesario "select"(cionar) el rango para trabajar sus propiedades/metodos/... -?-

otras alternativas si (p.e.) necesitas re/definir algun nombre de rango en relacion con las columnas A y B a partir de la fila 5...

SIN celdas vacias intermedias:

- partiendo de la columna A y agregas la columna B
Range(Range("a5"), Range("a5").End(xlDown)).Resize(, 2).Name = "MiRango"

- partiendo de la columna A te extiendes por la columna B
Range(Range("a5"), Range("b5").End(xlDown)).Name = "MiRango"

CON celdas vacias intermedias:

- partiendo de la columna A, "subes" desde la ultima fila y agregas la columna B
Range(Range("a5"), Range("a65536").End(xlUp)).Resize(, 2).Name = "MiRango"

- partiendo de la columna A "subes" desde la ultima fila de la columna B
Range(Range("a5"), Range("b65536").End(xlUp)).Name = "MiRango"

saludos,
hector.

Ok!
He probado la opción que me ha comentado L.Garcia y en principio es viable y
me funciona perfectamente.
Con estas dos lineas de codigo:

Range("A5").CurrentRegion.Select
Application.Intersect(Selection, Range("A5:A65535")).Select

Se selecciona todo el rango desde A5 hasta la última celda con valor,
independiente de si ese rango se haya incrementado o reducido,que es lo que
andaba buscando, ya que mi idea es una vez que tengo seleccionado dicho
rango, necesito pegarlo en otra hoja (mediante vb también).
De todas formas tu plantemiento también me sirve si me veo forzado a tener
que modificar el rango o sus propiedades.

Gracias por todo!
Saludos,
Francisco Durante


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

hola, Francisco !

Tengo una hoja que crece o dsiminuye dinámicamente, pero siempre empieza
a llenarse desde la celda A1.
A veces el rango es "A1:BA28" u otras veces el rango puede ser "A1:BA60".
Mediante VB quiero que se seleccione dicho rango, pero excluyendo las 4
primeras filas, por lo que debería empezar siempre por A5.
Tengo este codigo:
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Name = "RANGO"
Pero me selecciona desde A1, aun cuando tengo definido el rango "RANGO"
desde A5.
Alguna ayuda al respecto?...

es probable que no sea necesario "select"(cionar) el rango para trabajar
sus propiedades/metodos/... -?-

otras alternativas si (p.e.) necesitas re/definir algun nombre de rango en
relacion con las columnas A y B a partir de la fila 5...

SIN celdas vacias intermedias:

- partiendo de la columna A y agregas la columna B
Range(Range("a5"), Range("a5").End(xlDown)).Resize(, 2).Name = "MiRango"

- partiendo de la columna A te extiendes por la columna B
Range(Range("a5"), Range("b5").End(xlDown)).Name = "MiRango"

CON celdas vacias intermedias:

- partiendo de la columna A, "subes" desde la ultima fila y agregas la
columna B
Range(Range("a5"), Range("a65536").End(xlUp)).Resize(, 2).Name =
"MiRango"

- partiendo de la columna A "subes" desde la ultima fila de la columna B
Range(Range("a5"), Range("b65536").End(xlUp)).Name = "MiRango"

saludos,
hector.