JSDJSD

Esta podría ser una posible solución, pero claro ya lo tienes solucionado

Con este formulario puedes buscar por cualquier campo de tu base de datos y encadenar unos filtros con otros Ayuda.xlsm

Te comparto un formulario que en su día el Gran Maestro Cacho R compartió en el foro que seguro cumple con tus espectativas.

Mañana intento pasarte algo

Usas ListView1 por algún motivo en especial ?

Sube tus libros y muestra como debe quedar en libro destino

Sube tu archivo

Sube tu archivo y pon el ejemplo sobre el mismo

Perfecto, me alegro

Tu archivo modificadoTARIFA_VBA_55 (1).xlsm

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

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

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

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

Me alegro

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

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

Noooooo!!

Sube tu archivo

Hola a ambos lo mismo pero con macros Consulta de Afiliados AFP - PTO ILO.xlsm