Desde la celda activa hasta la última entrada en Excel VBA

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.

Localización:

Algunas cifras de ventas en la columna A. Suponga que está sumando más cifras de ventas a lo largo del tiempo.

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:

Rango ("A5"). Aleta (xlDown). Seleccione

Nota: En lugar de Scope ("A5"), también puede utilizar Scope ("A1"), Scope ("A2"), etc. Esta línea de código es equivalente a presionar END DATE + DOWN.

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

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

Alcance (Alcance ("A5"), Alcance ("A5"). Fin (xlDown)). Seleccione

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

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

Rango (ActiveCell, ActiveCell.End (xlDown)). Seleccione

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

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