Buscar un dato de un textbox en una Base de datos de Excel
Tengo una base de datos de 167 columnas, en mi UserForm tengo un ComboBox que indica la columna a buscar y el TextBox2 el dato buscado, al dar click en el Commandbutton me arroja la base de datos en el ListBox1, este es mi código:
Private Sub CommandButton1_Click()
On Error GoTo Errores
If Me.TextBox2.Value = "" Then Exit Sub
Me.ListBox1.Clear
Columna = Me.ComboBox1.ListIndex
ListBox1.ColumnCount = 167
j = 1
Filas = Range("a17").CurrentRegion.Rows.Count
For i = 2 To Filas
If LCase(Cells(i, j).Offset(0, CInt(Columna)).Value) Like "*" & LCase(Me.TextBox2.Value) & "*" Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)
Else
End If
Next i
Exit Sub
Errores:
MsgBox "No se encuentra.", vbExclamation, "EXCELeINFO"
End Sub
El problema es que solo me permite buscar los datos de las primeras cuatro columnas, a partir de la quinta ya no me arroja datos en el ListBox, otro problema es que en el listBox soslo me muestra las primeras 8 columnas, me podrían indicar qué es lo que estoy haciendo mal