BUSCAR EN UN LISTBOX

[salvador]

Tengo una problema, he creado un formulario de una tabla de mas de 10 columnas, y he creado un listbox para buscar, el codigo que adjunto ( busca correctamente), pero cuando pincho encima de del listbox, no trae correctamente los datos a los cuadros de texto del formulario, ¿alguien me puede ayudar?

 

 

NUMERODEDATOS = Hoja7.Range("B" & Rows.Count).End(xlUp).Row

 

LISTA = Clear

LISTA.RowSource = Clear

 

y = 0

 

 

For FILA = 4 To NUMERODEDATOS

 

nombre = Hoja7.Cells(FILA, 83).Value

 

If UCase(nombre) Like "*" & UCase(Me.txt_buscar_cliente.Value) & "*" Then

 

 

 

 

Me.LISTA.AddItem

Me.LISTA.List(y, 0) = Hoja7.Cells(FILA, 2).Value

Me.LISTA.List(y, 1) = Hoja7.Cells(FILA, 3).Value

Me.LISTA.List(y, 2) = Hoja7.Cells(FILA, 4).Value

Me.LISTA.List(y, 3) = Hoja7.Cells(FILA, 5).Value

Me.LISTA.List(y, 4) = Hoja7.Cells(FILA, 6).Value

Me.LISTA.List(y, 5) = Hoja7.Cells(FILA, 7).Value

Me.LISTA.List(y, 6) = Hoja7.Cells(FILA, 8).Value

Me.LISTA.List(y, 7) = Hoja7.Cells(FILA, 9).Value

Me.LISTA.List(y, 😎 = Hoja7.Cells(FILA, 10).Value

Me.LISTA.List(y, 9) = Hoja7.Cells(FILA, 11).Value

y = y + 1

End If

Next

[JSDJSD]

Sube tu archivo

 

[salvador]

Pesa mas de 100kb y no puedo

[salvador]

ahora si puedo

TARIFA_VBA_50.xlsmFetching info...

[Antoni]

Faltan hojas en el archivo que has subido (BD, CLIENTES, ALTAARTICULOS1,.....)

[salvador]

Hola,

porque pesaba demasiado el Excel y las he quitado .

En los botones de búsqueda de presupuesto1, cuando busco , no se ponen bien los datos en los cuadros de texto .

¿Puede ser que el listbox, no busca bien en tablas de más 10 columnas?

 

[JSDJSD]

  En 14/12/2023 at 11:50 , salvador dijo:

Puede ser que el listbox, no busca bien en tablas de más 10 columnas?

Expand  

Noooooo!!

[Antoni]

Si lo que buscas es el Cliente, este concepto se halla en la columna 5 de la Hoja7, no en la 83.

nombre = Hoja7.Cells(FILA, 83).Value

 

[salvador]

No me refiero a eso . Si se que es la columna 5.

lo que digo es que cuando busco 

el número de escándallo , el cliente ,

el artículo o el tejido tapa . La búsqueda no corresponde con la fila correspondiente y por lo tanto no puedo modificar la línea .

 

[JSDJSD]

Editado el el 14 de diciembre por JSDJSD

[JSDJSD]

Cambia el evento de tu código

Private Sub LISTA_Click()
    Dim codigo As Integer
    codigo = LISTA.List(LISTA.ListIndex, 0)
    Me.txt_codigo.Value = codigo
    Me.BT_MODIFICAR.Enabled = True
End Sub

por.....

Private Sub LISTA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim codigo As Integer
    codigo = LISTA.List(LISTA.ListIndex, 0)
    Me.txt_codigo.Value = codigo
    Me.BT_MODIFICAR.Enabled = True
End Sub

 

[JSDJSD]

Otra opción en vez de cambiar el evento elimina estas dos líneas del evento txt_codigo_Change

Private Sub txt_codigo_Change()

Dim codigo As Integer
codigo = txt_codigo.Value

Me.txt_presupuesto = Application.WorksheetFunction.VLookup(codigo, Sheets("PRESUPUESTO1").Range("B:CF"), 2, 0)
Me.txt_fecha = Application.WorksheetFunction.VLookup(codigo, Sheets("PRESUPUESTO1").Range("B:CF"), 3, 0)
.....................
.....................
.....................
Me.LISTA.RowSource = "ARTICULOS8"  '>>>>>>>> eliminalas de tu código
Me.LISTA.ColumnCount = 9 ' >>>>>>>>>>>>>>>>> eliminalas de tu codigo
End Sub

 

[salvador]

  En 14/12/2023 at 22:17 , JSDJSD dijo:

Otra opción en vez de cambiar el evento elimina estas dos líneas del evento txt_codigo_Change

Private Sub txt_codigo_Change()

Dim codigo As Integer
codigo = txt_codigo.Value

Me.txt_presupuesto = Application.WorksheetFunction.VLookup(codigo, Sheets("PRESUPUESTO1").Range("B:CF"), 2, 0)
Me.txt_fecha = Application.WorksheetFunction.VLookup(codigo, Sheets("PRESUPUESTO1").Range("B:CF"), 3, 0)
.....................
.....................
.....................
Me.LISTA.RowSource = "ARTICULOS8"  '>>>>>>>> eliminalas de tu código
Me.LISTA.ColumnCount = 9 ' >>>>>>>>>>>>>>>>> eliminalas de tu codigo
End Sub

 

Expand  

El primer código no me funciona , no vuelca los datos al texbox. El segundo código si me funciona , pero me gustaría saber porque funciona eliminando lo que me indicas 

[salvador]

El primer código no me funciona , no vuelca los datos al texbox. El segundo código si me funciona , pero me gustaría saberporque funciona eliminando lo que me indicas 

[salvador]

Ya lo sé porque ocurre . MUCHAS GRACIAS por la respuesta .  

[JSDJSD]

  En 15/12/2023 at 22:11 , salvador dijo:

Ya lo sé porque ocurre . MUCHAS GRACIAS por la respuesta .  

Expand  

Me alegro

[JSDJSD]

  En 14/12/2023 at 23:39 , salvador dijo:

El primer código no me funciona , no vuelca los datos al texbox.

Expand  

Te dejo tu archivo con la primera opción para que veas que si funciona, ten en cuenta que para que cargue los textbox tienes que hacer doble click en la línea que quieras del listboxTARIFA_VBA_50(1).xlsm

[salvador]

Cierto , como no le daba dobleclick no funcionaba . Muchas gracias de nuevo 

[salvador]

Hola de nuevo,

Adjunto de nuevo la tarifa, porque he creado un Menu, para ir a los diferentes formularios.

He dejado los formularios tejidos y clientes, desde el menu, puedo irme al formulario tejidos y clientes, pero no puedo modificarlos, 

¿que tengo que hacer para poder modificarlos y poder trabajar con los formularios tejidos y clientes, accediendo desde el menu?

TARIFA_VBA_55.xlsmFetching info...

[JSDJSD]

Estos son los cambios que tienes que realizar para que funcione, es decir comentariar False

[JSDJSD]

Tu archivoTARIFA_VBA_55.xlsmSi te fijas bien el mismo error te especifica el problema, no se puede mostrar un formulario no MODAL cuanto se muestra un formulario MODAL

[JSDJSD]

[salvador]

Buenas Noches,

Feliz Navidad JSDJSD

Solo me modifica si la hoja activa cuando abro el archivo es la hoja1 "altatejidos"(BD).

Si luego modifico el altaclientes, sigue modificando la hoja "altatejidos"

Adjunto archivo

TARIFA_VBA_55 (1).xlsmFetching info...

[JSDJSD]

Pon en el botón modificar del formulario mi_tejidos el siguiente código modificado

Private Sub BT_MODIFICAR_Click()
    If LISTA.ListIndex = -1 Then
        MsgBox ("Seleccione un registro")
    Else
        Dim FILA As Object
        Dim linea As Integer
        
        valor_buscado = Me.txt_codigo
        
        With Sheets("BD")
            Set FILA = .Range("B:B").Find(valor_buscado, lookat:=xlWhole)
            linea = FILA.Row
            txt_metro_cuadrado.Value = "T" & txt_referencia.Value
            .Range("C" & linea).Value = Me.txt_metro_cuadrado.Value
            .Range("D" & linea).Value = Me.txt_referencia.Value
            .Range("E" & linea).Value = Me.txt_nombre.Value
            .Range("F" & linea).Value = Me.txt_precio.Value
            .Range("G" & linea).Value = Me.txt_acabado.Value
            .Range("H" & linea).Value = Me.txt_mermas.Value
            .Range("I" & linea).Value = Me.txt_composicion.Value
            .Range("J" & linea).Value = Me.txt_proveedor.Value
            .Range("K" & linea).Value = Me.txt_ancho.Value
        End With
        MsgBox "Modificado correctamente", vbInformation
    End If
End Sub

y en el botón modificar del formulario mi_clientes el siguiente modificado

Private Sub BT_MODIFICAR_Click()
    If LISTA.ListIndex = -1 Then
        MsgBox ("Seleccione un registro")
    Else
        Dim FILA As Object
        Dim linea As Integer
    
        valor_buscado = Me.txt_codigo
        With Sheets("CLIENTES")
            Set FILA = .Range("B:B").Find(valor_buscado, lookat:=xlWhole)
            linea = FILA.Row
            
            .Range("C" & linea).Value = Me.txt_nombre.Value
            .Range("D" & linea).Value = Me.txt_direccion.Value
            .Range("E" & linea).Value = Me.txt_Cif.Value
            .Range("F" & linea).Value = Me.txt_contacto.Value
            .Range("G" & linea).Value = Me.txt_correo.Value
            .Range("H" & linea).Value = Me.txt_telefono.Value
        End With
        MsgBox "Modificado correctamente", vbInformation
    End If
End Sub

 

[JSDJSD]

Tu archivo modificadoTARIFA_VBA_55 (1).xlsm