Este ejemplo ilustra la propiedad End del objeto Range en Excel VBA . Utilizaremos esta propiedad para seleccionar el rango desde la celda activa hasta la última entrada de una columna.
Situación:
Algunas cifras de ventas en la columna A. Suponga que añadirá más cifras de ventas con el tiempo.
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Para seleccionar la última entrada de una columna, simplemente añada la siguiente línea de código:
Rango(«A5»).End(xlAbajo).Seleccionar
Nota: en lugar de Rango(«A5»), también puedes usar Rango(«A1»), Rango(«A2»), etc. Esta línea de código equivale a presionar la FLECHA FINAL + FLECHA ABAJO.
Resultado cuando se hace 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, añada la siguiente línea de código:
Rango(Rango(«A5»), Rango(«A5»).Fin(xlAbajo)).Seleccionar
Resultado cuando se hace clic en el botón de comando de la hoja:
3. Para seleccionar el rango desde la Celda Activa hasta la última entrada de la columna, simplemente reemplace el Rango («A5») con la Celda Activa.
Rango(ActiveCell, ActiveCell.End(xlDown)).Seleccione
Resultado cuando seleccionas la celda A2 y haces clic en el botón de comando de la hoja:
Nota: puedes usar las constantes xlUp, xlToRight y xlToLeft para moverte en las otras direcciones. De esta manera puedes seleccionar un rango desde la celda activa hasta la última entrada de una fila.