Jump to content

Luisfer2020

Members
  • Content Count

    1
  • Joined

  • Last visited

About Luisfer2020

  • Rank
    Newbie

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png