Como enlazar varios listbox

Buenas Expertos, la cuestión es que tengo 5 listbox que se van llenando con textbox. La cuestión es que quiero enlazarlos para poder borrar un elemento del listbox y que al mismo tiempo se borre en los otros listbox.

Gracias

1 respuesta

Respuesta
1

Los 5 listbox, ¿tienen la misma información?

¿O de qué forma identificas la relación entre los 5 listbox?

Con estas instrucciones borras un registro de un listbox,

Y funciona así, seleccionas un registro del listbox y después de presionar un botón se realiza el borrado.

Private Sub CommandButton1_Click()
With ListBox1
For ind = 0 To .ListCount - 1
If .Selected(ind) Then
ListBox1.RemoveItem (ind)
End If
Next
End With
End Sub

Nota: si el listbox se llenó con un rango de celdas de excel, es decir, si utilizas esta instrucción para llenar el listbox: ListBox.RowSource = "A2:A20", no se puede borrar el registro del listbox.

Si todos los listbox tienen los mismos registros y cada registro tiene la relación con los registros de los otros listbox, es decir, si el registro uno del listbox corresponde al registro uno de los otros listbox y el registro 2 del listbox corresponde al registro 2 de los demás listbox y así sucesivamente, entonces, podrías aplicar la siguiente macro:

Private Sub CommandButton1_Click()
'por.Dam
For ind = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(ind) Then
        ListBox1. RemoveItem (ind)
        ListBox2. RemoveItem (ind)
        ListBox3. RemoveItem (ind)
        ListBox4. RemoveItem (ind)
        ListBox5. RemoveItem (ind)
    End If
Next
End Sub

Saludos.Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas