Buenos días, estoy programando un boton de busqueda y no me funciona el Additem para lstar os resultados en una listbox
pego el codigo:
Private Sub BT_Buscar_Click()
NumeroDatos = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
LISTA = Clear
FILA = 0
Y = 1
For FILA = 3 To NumeroDatos
CRITERIO = Hoja1.Cells(FILA, 4).Value
If CRITERIO Like "*" & Me.Txt_Busqueda.Value & "*" Then
MsgBox (CRITERIO)
Me.LISTA.AddItem
Me.LISTA.List(Y, 0) = Hoja1.Cells(FILA, 0).Value
Me.LISTA.List(Y, 1) = Hoja1.Cells(FILA, 1).Value
Me.LISTA.List(Y, 2) = Hoja1.Cells(FILA, 2).Value
Me.LISTA.List(Y, 3) = Hoja1.Cells(FILA, 3).Value
Me.LISTA.List(Y, 4) = Hoja1.Cells(FILA, 4).Value
Me.LISTA.List(Y, 5) = Hoja1.Cells(FILA, 8).Value
Y = Y + 1
End If
Next
End Sub
Pensaba que así iba a funcionar.
Alguienme puede ayudar??
Gracias
Suponiendo que la lista se llama LISTA, veo varias cosas:
lo primero es que para vaciar el contenido no hay que poner lista=clear, sino que tendrás que llamar al método Clear de la lista, es decir
LISTA.Clear
Lo segundo: El contador de filas comienza en 0, no en 1, así que el valor inicial de tu variable Y deberías ser 0
Y = 0
Lo tercero: al leer el valor de la celda estás intentando leer la columna cero Hoja1.Cells(FILA, 0).Value que no existe en tu hoja , supongo que querrás empezar a leer desde la columna 1
Me.LISTA.Column(Y, 0) = Hoja1.Cells(FILA, 1).Value
------
Ya sé Excel, pero necesito más.
Muchas gracias Paco