Gestion de stock

[Alfonso5597]

Hola amigos foreros, y saludos a los maestros.

Estoy de nuevo con todos ustedes para solicitar su inestimable ayuda con un problema que no puedo resolver y les agradeceria, le explico; tengo un buscador que necesito me encuentre ( eso lo tengo resuelto ) por varias opciones, el problema es que solo me devuelve un total de 8 columnas de datos y tengo 13, he provado varias cosas pero no doy con el asunto, les dejo la hoja para que lo vean, muchas gracias por anticipado

Saludos cordiales

Prueba.rar

[tierra_pampa]

Hola [uSER=197343]@alfonso5597[/uSER]!

Entiendo que el problema puede radicar en las órdenes:

ListBox1.ColumnCount = 8

ListBox1.ColumnWidths = "130;80;80;80;150;60;60;50"[/CODE]

donde el control tendrá 8 columnas y el ancho que se le dan en la segunda línea.

Personalmente, manejo los datos desde el inicio del formulario.

Intenta con este código:

[CODE]Private Sub UserForm_Initialize()
'Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height

SpinButton1.Visible = False
SpinButton1.Min = 1
SpinButton1.Max = 100
SpinButton1.Value = 1

ListBox1.Width = Application.Width - 50
ListBox1.ColumnCount = 13
ListBox1.ColumnWidths = "130;80;80;80;150;60;60;50;60;60;60;60;60"
'ListBox1.ColumnHeads = True
ListBox1.ListStyle = fmListStyleOption

ListBox1.RowSource = "=Articulos!A1:M11" 'borrar esta línea luego

ListBox2.Width = Application.Width - 50
ListBox2.ColumnCount = 13
ListBox2.ColumnWidths = "130;80;80;80;150;60;60;50;60;60;60;60;60"
ListBox2.RowSource = "=Articulos!A1:M1"
End Sub[/CODE]

Puedes probar y comentar? Si la solución planteada es lo que buscas, favor de dar el tema por solucionado.

Que tengas una buena jornada!

[Alfonso5597]

Hola amigo Tierra Pampa, te agradezco tu ayuda, pero no me soluciona el problema,ahora me busca en las 13 columnas pero no presenta los datos de las 3 ultimas, me salen vacias

Saludos cordiales

[tierra_pampa]

Hola [uSER=197343]@alfonso5597[/uSER]!!!

Disculpa, pero en las pruebas que realicé, usé:

ListBox1.ColumnHeads = False

ListBox1.RowSource = "=Articulos!A2:M11

[/CODE]

con filtros avanzados y funciona (si quieres probar. reemplaza estas dos líneas en el código de -

Private Sub UserForm_Initialize()-).

Entro a trabajar en quince minutos, por lo que te dejo una imagen por si tu puedes avanzar en dicho camino.

Cuándo salga, vuelvo por aquí.

Que tengas una buena jornada!

[Invitado jorge de leon]

Hola amigo Tierra Pampa, te agradezco tu ayuda, pero no me soluciona el problema,ahora me busca en las 13 columnas pero no presenta los datos de las 3 ultimas, me salen vacias

Saludos cordiales

la solución que te dieron si funciona pero si lo quieres hacer como tu código lo que debes de cambiar el numero de columna de tu listboox. el problema de tu código es que solo le esta dando 8 columna a tu listbox y son 13 las que necesitas

ListBox1.

ColumnCount = 8   'cambia el 8 por 13 que es el numero de columnas que necesitas

ListBox1.ColumnWidths = "130;80;80;80;150;60;60;50" 'debes de agregar las medidas  de las nuevas columnas[/CODE]

[Alfonso5597]

Hola amigos, agradezco su ayuda

He hecho lo que me aconsejaron

ListBox1.RowSource = "=Articulos!A1:M11"

Con esta funcion, me aparecen los 13 columnas, todo bien pero entonces no me funciona la opcion de buscar por datos

Saludos cordiales

[Enigma25]

Hola @Alfonso5597. Buen trabajo.

Solo una sugerencia y espero te pueda servir en el futuro....

Cambia :

ComboBox1.List = Sheets("Tipo de articulo").Range("A2:A300").Value

por :

ComboBox1.List = Hoja2.Range("A2:A300").Value

...y en donde tengas las hojas nombradas. De esa manera evitarías errores si cambias el nombre de la hoja.

Saludos.

[Alfonso5597]

Muchas gracias amigo Enigma25 por tu ayuda

Saludos

[bigpetroman]

saludos [uSER=197343]@Alfonso5597[/uSER], te recomiendo que revises este aporte del maestro [uSER=46507]@Macro Antonio[/uSER]

Buscar en mas de 10 columnas en un ListBox

te va a servir de mucha ayuda

[Alfonso5597]

Hola amigo Bigpetroman, muchas gracias por tu ayuda, es justo lo que necesitaba.

Saludos cordiales

Doy el tema por resuelto