Buenas tardes.

Tengo un ListBox creado con un rango actual seleccionado de RowSource = 'Hoja'!'A1:C20

Dicho rango es una base de datos que irá aumentando en filas, como puedo hacer que dicho rango se adapte a la ultima fila con valores?? Por ejemplo si la ultima es la fila es la 25 que el rango sea 'Hoja'!'A1:C25 y así sucesivamente.

Si pongo un rango muy grande me aparecen muchas filas vacias en el ListBox y queria evitarlo.

Gracias

Esta lista

Hola @enrsolgon2, puedes probar asi:

.RowSource = "Hoja!A1:C" & Sheets("Hoja").Range("A1").End(xlDown).Row

Saludos

En 5/4/2020 at 19:39 , enrsolgon2 dijo:

No consigo hacerlo con eso...

 

Y cual es el problema? debes ser un poco mas especifico para poder ayudarte.

¿Estás seguro que tu hoja se llama Hoja y no Hoja1 o Hoja2 o cualquier otro nombre?

Y otra cosa, si el nombre de la hoja contiene espacios debe ir encerrado ente comillas simples.

Gracias a ambos.

.RowSource = "Hoja!A1:C" & Sheets("Hoja").Range("A1").End(xlDown).Row

Estaba correcto. Antoni me hizo revisar mi nombre de hoja con su comentario. Mi hoja tenía un espaco en blanco al final del nombre, me tenía loco. Cosas de novato...

Gracias de nuevo. Solucionado

Hace 3 horas, enrsolgon2 dijo:

Mi hoja tenía un espaco en blanco al final del nombre, me tenía loco. Cosas de novato...

Para evitar eso, lo recomendable es mejor usar el codename de las hojas [lo puedes ver desde el proyecto vba del editor], si en tu caso el nombre es hoja1, entonces podría ser así:

Set mh = Hoja1
.RowSource = mh.Range("A1").CurrentRegion.Resize(mh.Range("A1").End(xlDown).Row, 3).Address(, , , 1)

 

Saludos a todos