BUSCAR EN UN LISTBOX

salvador · el 13 de diciembre

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

JSDJSD · el 13 de diciembre

Sube tu archivo

salvador · el 13 de diciembre

Pesa mas de 100kb y no puedo

salvador · el 13 de diciembre

ahora si puedo

TARIFA_VBA_50.xlsm

Antoni · el 14 de diciembre

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

salvador · el 14 de diciembre

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 · el 14 de diciembre

hace 1 hora, salvador dijo:

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

Noooooo!!

Antoni · el 14 de diciembre

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 · el 14 de diciembre

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 · el 14 de diciembre

Editado el el 14 de diciembre por JSDJSD

JSDJSD · el 14 de diciembre

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 · el 14 de diciembre

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 · el 14 de diciembre

Hace 1 hora, 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

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 14 de diciembre

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 · el 15 de diciembre

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

JSDJSD · el 16 de diciembre

hace 10 horas, salvador dijo:

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

Me alegro

JSDJSD · el 16 de diciembre

En 15/12/2023 at 0:39 , salvador dijo:

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

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 · el 16 de diciembre

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

salvador · el 24 de diciembre

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

JSDJSD · el 24 de diciembre

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

JSDJSD · el 24 de diciembre

Tu archivoTARIFA_VBA_55.xlsm image.gif.fc7317e78eb5181eaceadefa91690a0d.gif Si 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 · el 24 de diciembre

image.gif.18fce9b9c79b82eb6ff7378d0f2b573b.gif

salvador · el 25 de diciembre

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).xlsm

JSDJSD · el 25 de diciembre

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 · el 25 de diciembre

Tu archivo modificadoTARIFA_VBA_55 (1).xlsm

Conéctate a Ayuda Excel

BUSCAR EN UN LISTBOX

Recommended Posts

salvador

JSDJSD

salvador

salvador

Antoni

salvador

JSDJSD

Antoni

salvador

JSDJSD

JSDJSD

JSDJSD

salvador

salvador

salvador

JSDJSD

JSDJSD

salvador

salvador

JSDJSD

JSDJSD

JSDJSD

salvador

JSDJSD

JSDJSD

Conéctate para comentar

109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

1. ¿Te parecen útiles los tips de las funciones?

Current Donation Goals

Archivos

Estadísticas de descargas

Mensajes

Visualizado recientemente

Navegar

Política privacidad

Información importante