Crear columna en un listbox que sea editable

[jordany1606]

Buenas tardes

Quisiera saber como podria agregar una columna en un listbox donde pueda digitar cantidades segun la lista de materiales que aparecen en el listbox...

EL formulario aparece al hacer click en el botón "Liquidación de Materiales"

Gracias por la ayuda.

 

Sistema de Inventarios.xlsm

[Toldeman]

Hola, no entendi muy bien pero te adjunto el archivo de nuevo.

Saludos.

 

Sistema de Inventarios.xlsm

[jordany1606]

hola Toldeman

Que cambios le hiciste al archivo?

Lo que quiero hacer es poder editar la columna cantidad, es decir poder digitar una cantidad cualquiera y que luego pueda pasarlo a una base de datos, pero creo que un listbox no es editable, asi que no se como podria hacer ese proceso de manera sencilla.....

 

[Enigma25]

Hola @jordany1606

Te recomiendo que quites el RowSource del listbox y manejes tu base de datos con un bucle Do While para que llene el ListBox con el recorrido de los items de dicha base de datos. De igual modo quita el ColumnHeads de dicho listbox y agrega etiquetas para los encabezados del listbox.

Puedes hacer el llenado en el Evento Initialize con esto:

Dim Lin As Long
Lin = 2
    Do While Hoja2.Cells(Lin, 1) <> ""
    
            ListBox1.AddItem Hoja2.Cells(Lin, 2)
        
    Lin = Lin + 1
    Loop

...y para modificar y/o agregar cantidades a la seleccion del listbox, puedes hacerlo por medio de estas lineas:

Dim I As Integer
If TextBox1.Text = "" Then MsgBox "Falta Cantidad. ", vbExclamation, "Alerta"
ListBox1.List(ListBox1.ListIndex, 2) = TextBox1.Text

For I = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(I) = False
Next I

Cuénteme tus impresiones al respecto.

Saludos.

[Antoni]

Revisa el adjunto.

Sistema de Inventarios (2).xlsm