Este ejemplo ilustra la propiedad de final del objeto Range en Excel VBA. Vamos a utilizar esta propiedad para seleccionar el rango de la celda activa a la última entrada de una columna.

Situación:

Algunas cifras de ventas en la columna A. Se supone que va a agregar más cifras de ventas a través del tiempo.

From Active Cell to Last Entry in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. Para seleccionar la última entrada de una columna, sólo tiene que añadir la línea de código siguiente:

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

Nota: en lugar de Range ( «A5»), también se puede utilizar Range ( «A1»), Range ( «A2»), etc. Esta línea de código es equivalente a pulsar el FIN + FLECHA ABAJO.

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

Last Entry

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

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

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

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(«A5») with ActiveCell.

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

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

From Active Cell to Last Entry Result

Nota: puede utilizar las constantes xlUp, xlToRight y xlToLeft de movimiento en las otras direcciones. De esta manera usted puede seleccionar un rango de la celda activa a la última entrada en una fila.