VBA Excel Borrar filas con determinado valor - utilizar la instrucción EntireRow.Delete

VBA Excel Borrar filas con determinado valor - utilizar la instrucción EntireRow.Delete

   29 noviembre       Luis Reyes

---

En algunas ocasiones tenemos la necesidad de borrar algunos registros de una base de datos, y la manera mas sencilla es utilizar una macro.

A continuación les muestro el código para borrar filas dependiendo del valor de una celda.
Para que la macro funcione hay que seguir los siguientes pasos:

1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. Insertar un módulo.
3. Pegar el siguiente código en el módulo que se inserto:

Sub BorrarFilas()
Filas = Hoja1.Range("A" & Rows.Count).End(xlUp).Row 'determinamos el numero de veces que se va a repetir el bucle
Columna = 1 'indicamos el numero de columna donde buscará el valor
Valor = "Prueba" 'indicamos el valor que tiene que borrar
For i = Filas To 1 Step -1 'Debemos ir desde abajo hacia arriba
If Cells(i, Columna).Value = Valor Then Cells(i, Columna).EntireRow.Delete
Next i
End Sub

Descargar el Archivo