Seleccionar por código sólo líneas sin datos

Hola Esteban.

Supongo que quieres decir "la última fila CON datos", pues la última fila
SIN datos es la 65536.

Prueba con: Range(Cells(1, 1), Cells(Cells(65536, 5).End(xlUp).Row,
5)).Select

Saludos desde Tenerife.
*************************************
"Esteban Dido" escribió en el mensaje
news:%23%

Hola,
¿Cómo se puede - por código - seleccionar un rango de celdas desde por
ejemplo la A2 hasta la E'n' siendo 'n' la última fila sin datos de la
hoja?

hola chicos,

a mi, no se muy bien por que, me gusta esta forma:->

with Hoja("Tal")

.Range("a2:e" & .[e65536].End(xlUp).Row).Select

un saludo
Ivan

1) Si se trata de la ultima celda con datos en una columna conocida entonces el codigo de AnSanVal se podria depurar de la siguiente
manera:

Range(Cells(2, 1), Cells(65536, 5).End(xlUp)).Select

ademas...
- es preferible indicar la hoja de las celdas para evitar errores,

With Sheets("Hoja1")
.Range(.Cells(2, 1), .Cells(65536, 5).End(xlUp)).Select
End With

- dado que el numero maximo de filas pronto dejara de ser 65536, me parece que seria recomendable algo asi:

With Sheets("Hoja1")
.Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp)).Select
End With

- seguramente se puede evitar la seleccion de celdas, pero haran falta mas detalles

2) Si se desconoce en que columna exactamente podria aparecer el ultimo dato, entonces:

With Sheets("Hoja1")
Range(Cells(2, 1), _
Cells.Find("*", Cells(2), xlValues, xlWhole, xlByRows, xlPrevious)).Select
End With

Saludos,
KL


"AnSanVal" wrote in message news:

Hola Esteban.

Supongo que quieres decir "la última fila CON datos", pues la última fila SIN datos es la 65536.

Prueba con: Range(Cells(1, 1), Cells(Cells(65536, 5).End(xlUp).Row, 5)).Select

Saludos desde Tenerife.
*************************************
"Esteban Dido" escribió en el mensaje news:%23%

Hola,
¿Cómo se puede - por código - seleccionar un rango de celdas desde por
ejemplo la A2 hasta la E'n' siendo 'n' la última fila sin datos de la hoja?

hola, Esteban !

Como se puede - por codigo - seleccionar un rango de celdas desde por ejemplo la A2 hasta la E'n'
siendo 'n' la ultima fila sin datos de la hoja?

[creo que] tu consulta pudiera estar generando 'confusion' entre el asunto y su contenido -?-
-> por: 'seleccionar solo lineas sin datos' [en el asunto]...
te refieres a solo cuando todas las celdas de cada fila en el rango 'A:E' esten efectivamente vacias?
o... no importa que no este vacia toda 'la fila', sino solo las celdas vacias en dicho rango ?

en tanto comentas algun detalle [de los que se quedan 'en el tintero']... prueba con algo +/- como lo siguiente:

With ActiveSheet.UsedRange
Range("a2:e" & .Row + .Rows.Count - 1).SpecialCells(xlCellTypeBlanks).Select
End With

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

Gracias por sus respuestas.
Pido disculpas por lo mal planteado de mi problema.
Voy a tratar de explicar exactamente de que se trata.
En una hoja para ingresar datos para facturar, hay 40 lineas para el detalle
de los productos, desde la fila 12 hasta la 51. Sólo se ingresa el código
del producto y la cantidad (Col. A y B). Mediante BUSCARV se llenan las
columnas Descripción y Precio unitario (Col. C y D) que se extraen de otro
libro. La Col. E multiplica B * D.
Lo que se desea exactamente es seleccionar - por código - dentro del rango
A12:E51 sólo el rango que no contenga líneas en blanco.
Naturalmente que la hoja tiene otro tipo de datos más allá de la fila 51.
Gracias
E.D.


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

hola, Esteban !

> Como se puede - por codigo - seleccionar un rango de celdas desde por

ejemplo la A2 hasta la E'n'

> siendo 'n' la ultima fila sin datos de la hoja?

[creo que] tu consulta pudiera estar generando 'confusion' entre el asunto

y su contenido -?-

-> por: 'seleccionar solo lineas sin datos' [en el asunto]...
te refieres a solo cuando todas las celdas de cada fila en el rango

'A:E' esten efectivamente vacias?

o... no importa que no este vacia toda 'la fila', sino solo las celdas

vacias en dicho rango ?

en tanto comentas algun detalle [de los que se quedan 'en el tintero']...

prueba con algo +/- como lo siguiente:

With ActiveSheet.UsedRange
Range("a2:e" & .Row + .Rows.Count -

1).SpecialCells(xlCellTypeBlanks).Select

End With

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