Ingresar a hoja solo el elemento seleccionado del listbox
Tengo un listbox que cargo con datos de una tabla cumpliendo cierto criterios y un botón que me permite eliminar lo que no necesito del listbox, pero en lugar de eliminar lo que quiero es que tome el que seleccioné ya que el listbox se puede cargar con muchos datos y se hace menos eficiente la tarea al eliminar uno por uno hasta dejar solo el que quiero, es mucho más fácil si solo selecciono el que quiero, pero no he conseguido hacerlo.
El código que tengo es un poco largo para mostrarlo aquí.
Alguien que me pueda colaborar para enviarle mi código por correo.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Acabo de enviarte el archivo. Gracias.
Te anexo el código
Private Sub CommandButton1_Click() Dim i As Integer If CODLOCATIVAS.ListIndex = -1 Then MsgBox "Selecciona LOCATIVAS" Exit Sub End If For i = 0 To CODLOCATIVAS.ListCount - 1 If CODLOCATIVAS.Selected(i) Then ListBox1.AddItem CODLOCATIVAS.List(i, 0) With ListBox1 .List(.ListCount - 1, 1) = CODLOCATIVAS.List(i, 1) .List(.ListCount - 1, 2) = CODLOCATIVAS.List(i, 2) .List(.ListCount - 1, 3) = CODLOCATIVAS.List(i, 3) End With End If Next CODLOCATIVAS.MultiSelect = 0 CODLOCATIVAS.MultiSelect = 1 End Sub
Valora para finalizar Saludos!
