Máximos colaboradores

¡Saludos a todos! Otras opciones pueden ser: =UNIRCADENAS(",";;SI.ERROR(1/DIVIDIRTEXTO(A1;",")^-1;"")) =UNIRCADENAS(",";;ENCOL(1/DIVIDIRTEXTO(A1;",")^-1;2)) ¡Bendiciones!

Private Sub CheckBox1_Click() Dim respuesta as String respuesta = InputBox("Introduce el password ", "Password") If LCase(respuesta) = "123" Then OcultarMostrarFilasColumnas End If End Sub

Me alegro

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

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