Trasladar datos listbox1 a listbox con columnas
Buenos días amigo Dante
Estoy haciendo algunas modificaciones y es lo siguiente.
El LISTBOX1 está con la propiedad=FmMultiselectMulti
En el LISTBOX1 listo datos en 04 columnas..
NOMBRE APELLIDOS //DNI // DIRECCION // TELEF.
Seleccionaré varios clientes del listbox1 y al hace clic en el button1 ">>" pasarle al LISTBOX2 con las siguientes columnas
DNI // NOMBRE Y APELLIDOS // [MULTA *Esta columna ya me diste una solución *]
Y otro button2 "<<" me permitirá eliminar registros del LISTBOX2 en caso que me equivoque.
Me lo guarde los datos del LISTBOX1 a la hoja "MULTAS "como en la pregunta anterior
Estaba probando este codigo y me arroja un error; es que son varias columnas a pasar a otro listbox y por eso creo el error
Private Sub CommandButton1_Click()
For i = 0 To Listbox1.ListCount - 1
If Listbox1.Selected(i) = True Then
Listbox2.AddItem Listbox1.list(i)
End If
Next
End Sub
1 Respuesta
Tienes que cuidar varios detalles.
Primero, los datos en el listbox1, los tienes que cargar con additem.
Segundo, debes pasar los 4 datos de listbox1 al listbox2, ya que si después los quieres regresar del 2 al 1, debes tener todos los datos para regresarlos y en tu explicación solamente estás pasando el Dni y el nombre.
Tercero, los listbox tienen que ser multiselect, tienes que poner el total de columnas.
Por último, ¿cuáles son los datos que quieres pasar a la hoja? ¿Los del listbox1 o el 2?, pusiste esto: "Me lo guarde los datos del LISTBOX1 a la hoja "MULTAS " y no entiendo cuáles datos hay que pasar.
Mejor envíame tu archivo para revisarlo y adaptar el código.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “temp01” y el título de esta pregunta.
Ya le envié el archivo amigo Dante
Te anexo el código para pasar los datos del listbox1 al listbox2
Private Sub CommandButton2_Click() 'Por.Dante Amor ListBox2.Clear If ListBox1.ListIndex = -1 Then MsgBox "Selecciona clientes" Exit Sub End If ' For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then ListBox2.AddItem ListBox1.List(i, 0) ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1) ListBox2.List(ListBox2.ListCount - 1, 2) = TextBox1 End If Next End Sub
Amigo dante el DNI no pasa al LISTBOX2 completo
Por ejemplo si el DNI es "05684522" y se pasa así "5684522"
Gracias
En tu hoja no tienes el cero (0), lo que tienes es un formato de celda.
En realidad ese cero no existe.
Lo que va a pasar es que cuando lo pases a la hoja y si en esa hoja también tienes el formato de celda, podrás ver el cero, pero solamente lo verás en la celda, pero realmente tienes el número sin el cero.
Excel no me permite poner cero adelante, sólo con el formato o con apostrofe (')
Claro que te permite, pero primero tienes que decirle que el formato de celda es texto.
S aludos
