Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Recommended Posts

Buenas noches mi pregunta es la siguiente, para quien desee ayudarme con este codigo...Muchas gracias de antemano...

Tengo un formulario y dentro de el un listboxt, el cual carga al inicializarce las 13 columnas de la hoja excel, pero cuando hago una busqueda  por nombre solo me carga 10 columnas, yo se que solo llega hasta 10, pero me gustaria saber como con rowsource puedo cargar con la busqueda las mismas 13 columnas...Muchas gracias.

Private Sub nombre_Change()

'Primero exige que sea texto

If IsNumeric(nombre) And _
nombre.Text <> "" Then
Beep
MsgBox "DEBES INTRODUCIR SOLO TEXTO"
nombre.Text = ""
nombre.SetFocus
End If

'solo mayusculas

nombre.Text = UCase(nombre.Text)
nombre.SelStart = Len(nombre)

 

NumeroDatos = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
Me.Lista = Clear
Me.Lista.RowSource = Clear


y = 0
For Fila = 1 To NumeroDatos
   descrip = Hoja1.Cells(Fila, 3).Value
          
          If UCase(descrip) Like "*" & UCase(Me.nombre.Value) & "*" Then
          
             Me.Lista.AddItem
             Me.Lista.List(y, 0) = Hoja1.Cells(Fila, 1).Value
             Me.Lista.List(y, 1) = Hoja1.Cells(Fila, 2).Value
             Me.Lista.List(y, 2) = Hoja1.Cells(Fila, 3).Value
             Me.Lista.List(y, 3) = Hoja1.Cells(Fila, 4).Value
             Me.Lista.List(y, 4) = Hoja1.Cells(Fila, 5).Value
             Me.Lista.List(y, 5) = Hoja1.Cells(Fila, 6).Value
             Me.Lista.List(y, 6) = Hoja1.Cells(Fila, 7).Value
             Me.Lista.List(y, 7) = Hoja1.Cells(Fila, 8).Value
             Me.Lista.List(y, 8) = Hoja1.Cells(Fila, 9).Value
             Me.Lista.List(y, 9) = Hoja1.Cells(Fila, 10).Value
             
             y = y + 1
   
             
          End If
             
Next

End Sub
 

Share this post


Link to post
Share on other sites

Hola Luisfer2020, te dejo un ejemplo con tu mismo código un poquito modificado para que puedas filtrar y mostrar más de diez columnas en un listbox haciendo uso del método AddItem y  sin tener que hacer uso de RouSource, prueba y comenta.

GIF.gif

Filtrar y mostrar mas de diez columnas en listbox sin usar RowSource.xlsm

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



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png