Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Buscar más de 10 Columnas

  • Autor del tema Autor del tema Darack
  • Fecha de inicio Fecha de inicio

Darack

Member
Registrado
17 Ago 2022
Mensajes
37
Buen día estoy tratando de buscar y llenar un ListBox por medio de un TextBox y un Button.

Al momento de ingresar algún texto en el textbox y darle click en el button de buscar, que me aparezcan...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

  • Buscar.webp
    Buscar.webp
    141 KB · Visitas: 7
Solución
Añade estas líneas al principio del procedimiento Userform_Activate() y listo:
Código:
Private Sub UserForm_Activate()
With ListBox1
   .ColumnCount = 33
   .List = Range("A1").Resize(1, 33).Value
   .Clear
End With
'.........
'.........
End Sub


Nota: La última línea del código que has subido está equivocada en lugar de:
Código:
ListBox1.List(ListBox1.ListCount - 1, 31) = Cells(i, j).Offset(0, 32)

debe ser:
Código:
 ListBox1.List(ListBox1.ListCount - 1, 32) = Cells(i, j).Offset(0, 32)


Por cierto también podrías sustituir el llenado del listbox por un bucle:
Código:
   ListBox1.AddItem Hoja1.Cells(i, j)
   For y = 1 To 32
      ListBox1.List(ListBox1.ListCount - 1, y) = Cells(i, j).Offset(0, y)
   Next
Añade estas líneas al principio del procedimiento Userform_Activate() y listo:
Código:
Private Sub UserForm_Activate()
With ListBox1
   .ColumnCount = 33
   .List = Range("A1").Resize(1...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba