JSDJSD

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