Saltar al contenido
sretamalb

Eliminar multiples filas de un listbox filtrando por un textbox

Recommended Posts

Buenas Tardes,

Alguien me puede ayudar a que al momento de apretar el boton "Eliminar", este permita elimina más de una fila del listbox. Además al momento de usar el textbox como filtro que también pueda eliminar más de una fila filtrada del listbox.

Adjunto mi archivo.

Gracias!

PRUEBA.xlsm

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Al utilizar RowSource, los datos están ligados al rango de la hoja, por este motivo, no pueden eliminarse items directamente del listbox, debes eliminar las filas en la hoja que se corresponden con las filas a eliminar del listbox

Private Sub CommandButton2_Click()
Dim i As Integer, Rango As Range
For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) = True Then
      If Rango Is Nothing Then
         Set Rango = H2.Rows(i + 2)
      Else
         Set Rango = Union(Rango, H2.Rows(i + 2))
      End If
   End If
Next
If Not Rango Is Nothing Then
   Rango.Delete
   If Not H2.Range("A2") = "" Then
      ListBox1.RowSource = H2.Name & "!A2:H" & H2.Range("A" & Rows.Count).End(xlUp).Row
   End If
End If
End Sub

.

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Hola sretamalbHaplox y Antoni,  aquí te dejo mi opción sin utilizar  RowSource para cargar listbox, también podras filtrar los datos por cualquier carácter de la columna A así como eliminar  la fila elejida con el código de Haplox.

Por cierto y como siempre el código de Maestro Antoni perfecto e impecable.

Pruebalo y comenta. Un saludo

 

PRUEBA1.xlsm

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Hola srtamalb, prueba el adjunto cuyo formulario y código fue compartido por el maestro Cacho R  20/07/2017 en este foro.

La selección de los registros puedes hacerla por cualquier campo escribiendo -inclusive- un texto intermedio del campo. Puedes incluir criterios para varios campos simultáneamente pues se van superponiendo.

Tanto la eliminación como el traspaso de los datos a la hoja puedes hacerlos seleccionando uno o varios registros simultáneos

******** Palabras textuales del Maestro Cacho R**************

Prueba2.xlsm

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

@JSDJSD es posible que me puedas ayudar con algún código para filtrar desde el textbox el listbox y que se eliminen las filas seleccionadas de la hoja también? El código de CachoR no lo logro entender bien para modificarlo, es bastante complejo.

Abra otra forma que se pueda hacer algo similar?

Gracias

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Private Sub CommandButton2_Click()
Dim i As Integer, Rango As Range, Rango2 As Range
For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) = True Then
      If Rango Is Nothing Then
         Set Rango = H2.Rows(i + 2)
         Set Rango2 = H1.Rows(H2.Range("H" & (i + 2)))
      Else
         Set Rango = Union(Rango, H2.Rows(i + 2))
         Set Rango2 = Union(Rango2, H1.Rows(H2.Range("H" & (i + 2))))

      End If
   End If
Next
If Not Rango Is Nothing Then
   Rango.Delete
   Rango2.Delete
   If Not H2.Range("A2") = "" Then
      ListBox1.RowSource = H2.Name & "!A2:H" & H2.Range("A" & Rows.Count).End(xlUp).Row
   End If
End If
End Sub

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Hace 23 horas, Antoni dijo:

Set Rango2 = H1.Rows(H2.Range("H" & (i + 2)))

@Antoni muchas gracias por tu ayuda! Pero al utilizar el código que me envías me marca un error en lo que cito arriba porque será? 

Dice: "error '1004, Error definido por aplicacion o objeto"

 

Editado el por sretamalb

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

@JSDJSD Es posible que cuando uno busque en el textbox1 sólo filtre la palabra o número que es igual?

Me explico por ejemplo si en la columna A tengo datos como: 1, 1, 11, 111, 1111

Si escribo "1" solamente me muestre sólo los dos unos: 1, 1, no que me muestre ni el 11, ni el 111, ni el 1111.

Muchas gracias.

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Hola sretamalb , prueba el adjunto y comenta y recuerda que cuando tengas una respuesta de algún miembro del foro que de solución a tu consulta original debes de dar el tema por Solucionado, y si te surge alguna otra pregunta debes abrir un tema nuevo.

Prueba3.xlsm

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Crear una cuenta o conéctate para comentar

Necesitas ser usuario para poder dejar un comentario

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.