No me funciona additem

3 envíos / 0 nuevos
Último envío
argacha
Imagen de argacha
Offline
última acción: Hace 1 año 6 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 10/01/2007 - 08:28
Puntos: 1982
No me funciona additem

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

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 15 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Suponiendo que la lista se

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.

argacha
Imagen de argacha
Offline
última acción: Hace 1 año 6 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 10/01/2007 - 08:28
Puntos: 1982
Muchas gracias Paco 

Muchas gracias Paco