Este ejemplo ilustra la propiedad End del objeto Range en Excel VBA . Usaremos esta propiedad para seleccionar el rango desde la celda activa hasta la última entrada en una columna.

Situación:

Algunas cifras de ventas en la columna A. Suponga que agregará más cifras de ventas con el tiempo.

De la celda activa a la última entrada en Excel VBA

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Para seleccionar la última entrada en una columna, simplemente agregue la siguiente línea de código:

Range("A5").End(xlDown).Select

Nota: en lugar de Rango ("A5"), también puede usar Rango ("A1"), Rango ("A2"), etc. Esta línea de código es equivalente a presionar FIN + FLECHA ABAJO.

Resultado al hacer clic en el botón de comando en la hoja:

Última entrada

2. Para seleccionar el rango desde la celda A5 hasta la última entrada en la columna, agregue la siguiente línea de código:

Range(Range("A5"), Range("A5").End(xlDown)).Select

Resultado al hacer clic en el botón de comando en la hoja:

Desde la celda A5 hasta la última entrada

3. Para seleccionar el rango desde la celda activa hasta la última entrada en la columna, simplemente reemplace Rango ("A5") con ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Resultado cuando selecciona la celda A2 y hace clic en el botón de comando en la hoja:

De la celda activa al resultado de la última entrada

Nota: puede usar las constantes xlUp, xlToRight y xlToLeft para moverse en las otras direcciones. De esta manera, puede seleccionar un rango desde la celda activa hasta la última entrada de una fila.

14/7 Completado! Más información sobre el objeto de rango>
Siguiente capítulo: Variables