Jump to content

Recommended Posts

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

Share this post


Link to post
Share on other sites

¿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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola de nuevo @juancyuky Espero sea de utilidad.filtro vacias.xlsm  
    • Hola Mauricio,   Voy a intentar con tu valioso aporte y en este momento anexe el xlsm que al parecer no se cargo anteriormente y te comento si me resulto Muchas gracias!!! filtro vacias.xlsm
    • Mil gracias, si es algo que buscaba realizar, te lo agradezco mucho.
    • Hola @juancyuky No se puede descargar un archivo, pero una solución rápida y práctica podría ser:   Sub filtro() A = Application.WorksheetFunction.CountIf(Range("$A$5:$D$11"), Sheets("base").Range("c4").Value) If A >= 1 Then Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value 'If A <> 0 Then Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value      End Sub Espero se de utilidad, Sigo atento.
    • Hola amigos  De nuevo solicitando su apoya para resolver un tema, al filtrar ciertos datos y requiero copiar la información para procesarla solo que cuando no hay datos se produce un error 1004  como podria condicionarla con un if thense  Sub copiar_filtro() ActiveSheet.Range("$A$5:$D$11").SpecialCells(xlCellTypeVisible).Copy End Sub Sub filtro() Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value      End Sub filtro vacias.xlsm   de antemano gracias        
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy