Eliminar filas en Excel con condición

Por

Seguramente en algunos casos nos hemos visto en la necesidad de eliminar filas en Excel que contengan algún dato en especial, lo que puede ser un poco tedioso si son muchas filas las que hay que revisar.

La siguiente macro ayuda a eliminar filas que cumplan una condición. Por ejemplo, del siguiente listado se requieren eliminar todas las filas que contengan el texto “ave”.

eliminar-filas-excel-con-condicion

Eliminar las filas con una macro.

En la macro se deberán colocar los siguientes datos:

  • El nombre de la hoja que contiene la información
  • La columna donde se va a aplicar la condición
  • El texto de la condición. Todas las filas que tengas este texto serán eliminadas

Código de la macro:


Sub Eliminar_Filas()
Sheets("Hoja1").Select      'nombre de la hoja con la información
col = "A"                   'columna para aplicar la condición
'texto de la condición
'Para una fecha: "10/07/2017" el formato debe ser dd/mm/aaaa
'Para un número: "123"
texto = "ave"    '
valor = texto
If IsNumeric(texto) Then valor = Val(texto)
If IsDate(texto) Then valor = CDate(texto)    '
Application.ScreenUpdating = False
For i = Range(col & Rows.Count).End(xlUp).Row To 1 Step -1
If LCase(Cells(i, "A")) = LCase(valor) Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Filas eliminadas", vbInformation, "DAM"
End Sub

El texto puede ser una palabra, un número, una fecha o todo un enunciado, si la celda contiene el dato exacto, será eliminada.

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona clic y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale clic derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar clic derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Eliminar_Filas
  10. Aceptar.
  11. Para ejecutarla dale clic a la imagen.

Descargar archivo de Excel

Contenido relacionado:
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.


Déjenos su opinión

4 Opiniones
  1. CARLOS ESCOBAR Dice:

    EXCELENTE INFORMACIÓN QUE A DIARIO COLOCAN QUE AYUDA A todos las personas en diferentes áreas mas en la contable "DIOS LOS BENDIGA"

    Responder
  2. Ramiro Lingan celis Dice:

    Muy buena la información que dios les bendiga

    Responder
  3. Itzá Dice:

    Gracias por facilitar la macro, sin duda ahorra bastante tiempo para cuando tenés celdas con valores repetidos. Porque a la antigua con buscar y luego eliminar celdas consume más tiempo. Saludos

    Responder
  4. DIEGO VILLADA CANTOR Dice:

    Muchisimas gracias por el código. Una pequeña corrección en la siguiente línea:

    If LCase(Cells(i, "A")) = LCase(valor) Then
    Rows(i).Delete

    Cambiar "A" por col , debido a que esta variable se define arriba como condición para la eliminación. Gracias de nuevo

    Responder
En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.