Tengo duda Mutltiselect listbox excel
Eliminar datos del multiselect y de la hoja. Quisiera saber como puedo eliminar items del listbox pero teniendo activado la opción multiselect y de la hoja respectivamente
1 Respuesta
Hola Estimado, este seria el codigo para cargar el listbox:
sheets(micurso).Select
Range("d2").Select
Me.ListBox2.ColumnCount = 6
Me.ListBox2.ColumnHeads = True
Me.ListBox2.ColumnWidths = "60;160;20;50;40;40"
fi = 0
Do While Not IsEmpty(ActiveCell)
Me.ListBox2.AddItem
Me.ListBox2.List(fi, 0) = ActiveCell.Value
Me.ListBox2.List(fi, 1) = ActiveCell.Offset(0, 1).Value
Me.ListBox2.List(fi, 2) = ActiveCell.Offset(0, 2).Value
Me.ListBox2.List(fi, 3) = ActiveCell.Offset(0, 3).Value
Me.ListBox2.List(fi, 4) = ActiveCell.Offset(0, 4).Value
ActiveCell.Offset(1, 0).Select
fi = fi + 1
Loop
Te anexo el código para eliminar registros en la hoja y en el list
Cambia en el código "hoja2", por el nombre de tu hoja
Private Sub CommandButton1_Click() 'Por.Dante Amor ' micurso = "hoja2" n = 0 For i = ListBox2.ListCount - 1 To 0 Step -1 If ListBox2.Selected(i) Then 'Elimina registros de la hoja fila = i + 2 Sheets(micurso).Rows(fila).Delete 'Elimina registros del list ListBox2.RemoveItem (i) n = n + 1 End If Next If n = 0 Then MsgBox "Selecciona registros del listbox" Else MsgBox "Registros eliminados : " & n End If End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
