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

hola, Esteban !

Mostrar la cita

En una hoja para ingresar datos para facturar, hay 40 lineas para el detalle de los productos desde la fila 12 hasta la 51.
Solo se ingresa el codigo 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 codigo - dentro del rango A12:E51 solo el rango que no contenga lineas en blanco.
Naturalmente que la hoja tiene otro tipo de datos mas alla de la fila 51...

-> si suponemos/asumimos/... que las celdas dentro del rango 'A12:A51'
o tienen algun codigo... o estan vacias... y que NO existen celdas vacias 'intermedias' -???-
prueba con algo +/- como lo siguiente:

Dim Filas As Byte
Filas = Application.CountA(Range("a12:a51"))
If Filas > 0 Then Range("a12").Resize(Filas, 5).Select

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

Extraordinario. Funciona perfecto.
Muchas gracias Héctor.
E.D.

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

hola, Esteban !

> En una hoja para ingresar datos para facturar, hay 40 lineas para el

detalle de los productos desde la fila 12 hasta la 51.
Mostrar la cita

> Solo se ingresa el codigo 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.
Mostrar la cita

> La Col. E multiplica B * D.
> Lo que se desea exactamente es seleccionar - por codigo - dentro del

rango A12:E51 solo el rango que no contenga lineas en blanco.
Mostrar la cita

> Naturalmente que la hoja tiene otro tipo de datos mas alla de la fila

51...
Mostrar la cita

-> si suponemos/asumimos/... que las celdas dentro del rango 'A12:A51'
o tienen algun codigo... o estan vacias... y que NO existen celdas

vacias 'intermedias' -???-
Mostrar la cita

prueba con algo +/- como lo siguiente:

Dim Filas As Byte
Filas = Application.CountA(Range("a12:a51"))
If Filas > 0 Then Range("a12").Resize(Filas, 5).Select

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