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.
Macro en Excel eliminar filas según condición.
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 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
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona clic y arrastra el Mouse para hacer grande la imagen.
- 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”
- Vuelve a presionar clic derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Eliminar_Filas
- Aceptar.
- Para ejecutarla dale clic a la imagen.
Esta macro debería funcionar en cualquier versión de Excel 2007 1 superior.
Convertir 1 en SI y 0 en NO en Excel
Importar datos de varios libros de Excel en la hoja resumen
agosto 27th, 2019 a las 1:12 pm
Consulta como seria para mas de una fila ….?
Gracias
diciembre 31st, 2019 a las 8:47 am
Hola
Utilice el código de la macro que hiciste y me funciono bien
quisiera saber que le agrego para que me lo haga en una serie de hojas que tienen una parte del nombre igual (terminan con la misma palabra)
Muchas gracias
enero 2nd, 2020 a las 3:41 pm
Necesito que antes que la macros borre toda la fila bajo la condición dada, copie ciertas celdas de esta misma fila, en otra hoja.
Me ayudan por favor.
junio 6th, 2020 a las 11:55 am
como puedo eliminar una fila desde otra hoja condicion una celda gracias
diciembre 16th, 2020 a las 7:21 pm
Hola, esta macro me sirvió, pero quiero eliminar las filas dada una lista de criterios… Me pueden ayudar?
octubre 13th, 2022 a las 9:12 am
te recomiendo poner una formula en una nueva columna para que se descarte lo que quieres y no quieres eliminar, posterior aplicas esta fórmula. Por ejemplo una fórmula de condicional, si aplica es 1 y si no es 0, con eso al momento de eliminar, se borra lo que contenga 1 o 0
diciembre 22nd, 2020 a las 3:14 pm
Me funciono bien la macro, elimina toda la fila.
agosto 31st, 2021 a las 3:18 pm
Funciona bien, solo que es muy lento cuando son una gran cantidad de filas a borrar.
marzo 15th, 2022 a las 5:54 pm
Felicidades es justo la macro que estaba buscando
febrero 8th, 2023 a las 12:14 pm
‘Pequeña modificación para eliminar todo lo que no cumpla con el criterio ingresado.
Sub Eliminar_Filas()
‘Metodo Abreviado CTRL+W
‘Sheets(“Hoja1″).Select nombre de la hoja con la información
‘Situar los datos del primer Registro siempre en la fila 4 de cada hoja
Estab = Application.InputBox(prompt:=”Indique Estab que desea Mantener”, Type:=2)
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 = Estab
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 4 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