Saltar al contenido
macrosenexcel.com

Como Eliminar Filas Excel que Contengan Formulas #472

En este post se muestra Como Eliminar Filas Excel que Contengan Formulas, es decir se quitarán o eliminarán las filas que en las celdas existan formulas de Excel.

Existen en programarexcel.com muchos ejemplos que permite enviar mail con Excel, si requieres profundizar en el tema, haz 👉click en el link.

Se eficiente en el manejo de Excel haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.

Suscribe a nuestro canal para que YouTube te avise cuando se suba nuevo contenido al canal, hecha un vistazo a la Macro en acción, en el vídeo encontrarás una explicación gráfica y detallada del ejemplo que se muestra en este post. 

Suscribe al Canal y You Tube te avisará cuando se haya nuevo contenido

Como funciona la macro de ejemplo que establece Como Eliminar Filas Excel que Contengan Formulas

La macro es muy simple, descarga desde el final del post el ejemplo, la macro realiza un bucle en excel, es decir recorre de la primer a la última fila con datos, aca te muestro como se determina en Excel la útlima fila con datos.

Luego de determinada la primer y última donde se encuentran los datos en Excel se recorre las filas desde abajo hacia arriba eliminando las filas enteras que contengan una formula en la celda y columna analizada.

Quizá sea de utilidad también:

Como Eliminar Filas Duplicadas en Excel

Como Eliminar Filas en Blanco en Excel

Código de la Macro que muestra Como Eliminar Filas que Contengan Formulas.

Primero se crea un objeto con la hoja donde están los datos, esto nos facilitará el proceso de escritura del código, así:

Set a = Sheets(«Hoja1»)

Se determina la última fila con datos, si no lo sabes hacer click en el link y explico como se hace:

uf = Range(«A» & Rows.Count).End(xlUp).Row

 

Luego se inicia el bucle recorriendo desde la última fila a la primer fila con datos:

For x = uf To 2 Step -1

Analiza celda por celda de las Filas y Columna G, en búsqueda de celdas que contengan formulas para luego eliminar, se hace con el siguiente código:

 

If a.Cells(x, «G»).HasFormula = True Then a.Cells(x, «A»).EntireRow.Delete: conta = conta + 1

Al finalizar la macro sale un cartel o Msgbox que avisa que la macro concluyo su ejecución, así

MsgBox («Se eliminaron » & conta & » registros»), vbInformation, «AVISO»

Código del ejemplo practico de Excel y link de descarga

El código completo del ejemplo Como Eliminar las Filas de Excel que Contengan Formulas, se encuentra seguidamente, para la descarga del archivo ve al final del post.

Código que se inserta en un módulo de VBA 

‘**************https://macrosenexcel.com  **** https://youtube.com/programarexcel*********

Sub EliminaFila()

Application.ScreenUpdating = False

On Error Resume Next

Set a = Sheets(«Hoja1»)

uf = Range(«A» & Rows.Count).End(xlUp).Row

For x = uf To 2 Step -1

If a.Cells(x, «G»).HasFormula = True Then a.Cells(x, «A»).EntireRow.Delete: conta = conta + 1

Next x

MsgBox («Se eliminaron » & conta & » registros»), vbInformation, «AVISO»

Application.ScreenUpdating = True

End Sub

 

Sub DeNuevo()

Set a = Sheets(«Hoja1»)

uf = Range(«A» & Rows.Count).End(xlUp).Row

a.Range(«A1:G» & uf).Clear

Sheets(«Hoja2»).Range(«A:G»).Copy Destination:=a.Range(«A1»)

MsgBox («Se copio la base de datos nuevamente»), vbInformation, «AVISO»

End Sub

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Donate:
Paypal: https://paypal.me/programarexcel
Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407