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

Editado el el 19 de julio4 años por Danilo1026

Prueba y comenta.

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

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 ?? 

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

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

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

 

 

Gracias amigo

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

Editado el el 20 de julio4 años por Antoni

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 ??

 

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

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

 

Editado el el 21 de julio4 años por Danilo1026

Cierto, había un error, mis disculpas.

INVENTARIO Prueba(1) (2).xlsm

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  

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

 

Editado el el 21 de julio4 años por Antoni