ListBox con más de 10 columnas en Excel VBA.

[Danilo1026]

Ando Atrapado En Mi Proyecto De Control De Almacén en un pequeño error de que no puedo mostrar mas de diez columnas en mi listbox y no se como solucionar ese error lo deje comentado en el listBox programación dejo el archivo para ver si alguien me puede apoyar y pues si el archivo les sirve os dejo como obsequio  

INVENTARIO.xlsm

[JSDJSD]

Prueba y comenta.

https://drive.google.com/file/d/1L8vZCwbztbB6AlwtHBsoR2oGKteRlPyG/view?usp=sharing

[Danilo1026]

Hace 24 minutos , JSDJSD dijo:

Prueba y comenta.

https://drive.google.com/file/d/1L8vZCwbztbB6AlwtHBsoR2oGKteRlPyG/view?usp=sharing

Si Esta Perfecto Pero Quiero Saber Como Lo Hiciste ?? 

Me  Explicas ?? 

[JSDJSD]

Cuando se inicia el formulario la propiedad Columncount la igualamos a la cantidad de columnas que queremos que nos aparezcan el el listbox.

Por defecto el método AddItem no admite más de 10 columnas pero aplicándole un pequeño truquillo admite todas las que queramos.

 

With Me.ListBox1     .ColumnCount = 13     .List = Range(Cells(1, 1), Cells(1, .ColumnCount)).Value     .RemoveItem 0 End With

Partiendo de este código lo que hacemos es setear el listbox con las columnas que queramos, aunque no tengan ningún valor, por lo que mediante la línea:

.ColumnCount = 13   asignamos la cantidad de columnas  y mediante la línea     .List = Range(Cells(1, 1), Cells(1, .ColumnCount)).Value   seteamos el listbox con la cantidad de columnas establecidas en la línea anterior. Y por último con:     .RemoveItem 0     borramos la primera fila del listbox con la que hemos seteado el mismo ya que una  vez seteado  no nos sirve para  en el listbox. Si necesitas más columnas simplemente cambia el valor de     .ColumnCount = 13

[JSDJSD]

También podrías usar .Rowsource para cualquier cantidad de columnas.

[Danilo1026]

Pero el rowsource no me aplicaria para guardar datos ya lo había intentado

 

 

Gracias amigo

[Antoni]

Búsqueda combinada con filtro avanzado y RowSource

He añadido más conceptos de búsqueda.

La hoja FILTRO, puedes ocultarla, pero no eliminarla.

Hace 1 hora, Danilo1026 dijo:

Pero el rowsource no me aplicaria para guardar datos ya lo había intentado

Ya aplica.

INVENTARIO Prueba(1).xlsm

[Danilo1026]

Hace 1 hora, Antoni dijo:

Búsqueda combinada con filtro avanzado y RowSource

He añadido más conceptos de búsqueda.

La hoja FILTRO, puedes ocultarla, pero no eliminarla.

Ya aplica.

INVENTARIO Prueba(1).xlsm 174.01 kB · 1 descarga

Esta perfecto el aporte Antoni pero hay alguna manera de que el listbox el  campo id se ordene de forma accedente ??

 

[Antoni]

He añadido un botón de alternar para activar/desactivar la ordenación por ID.

También he añadido la posibilidad de buscar un ID en concreto. 

INVENTARIO Prueba(1).xlsm

[Danilo1026]

Perfecto Antoni Pero Encontré un error y no entiendo por que?

se que se trata de un rango de un campo inexistente pero revisando me doy de cuenta que si existe te enseño  

 

 

 

me podrías explicar ??

Hace 4 horas, Antoni dijo:

He añadido un botón de alternar para activar/desactivar la ordenación por ID.

También he añadido la posibilidad de buscar un ID en concreto. 

INVENTARIO Prueba(1).xlsm 182.51 kB · 0 descargas

 

[Antoni]

Cierto, había un error, mis disculpas.

INVENTARIO Prueba(1) (2).xlsm

[Danilo1026]

Hace 7 minutos , Antoni dijo:

Cierto, había un error, mis disculpas.

INVENTARIO Prueba(1) (2).xlsm 185.79 kB · 0 descargas

perfecto Antoni doy por concretado el tema y te doy mil gracias por el apoyo si me pudieras explicar cual era el error te lo agradecería  

[Antoni]

Compara la primera línea de este código con el que había:

      If OptionButton1 Then Filtro.Columns("O:Z").Sort Key1:=Filtro.Columns("O"), Header:=xlYes '<------------------------
      If OptionButton2 Then Filtro.Columns("O:Z").Sort Key1:=Filtro.Columns("P"), Key2:=Filtro.Columns("O"), Header:=xlYes
      If OptionButton3 Then Filtro.Columns("O:Z").Sort Key1:=Filtro.Columns("Q"), Key2:=Filtro.Columns("O"), Header:=xlYes
      If OptionButton5 Then Filtro.Columns("O:Z").Sort Key1:=Filtro.Columns("S"), Key2:=Filtro.Columns("O"), Header:=xlYes
      If OptionButton6 Then Filtro.Columns("O:Z").Sort Key1:=Filtro.Columns("T"), Key2:=Filtro.Columns("O"), Header:=xlYes