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