Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Eliminar Filas Según Criterio

| 0 comments

Basándose en el tema de la eliminación de columnas vacías, se adjunta en este artículo la forma de eliminar en un archivo según un criterio en específico, para ello es necesario emplear el código de la última fila.  Esta macro generalizada, solicita la columna del criterio y cuál es esté para poder facilitar al usuario su búsqueda.

 

Empezando la macro se realiza una copia de la hoja actual para no modificar la base de datos, y así poder realizar los cambios requeridos. Esta función en primer lugar selecciona la hoja actual y luego la copia para tenerla lista a los cambios.

HojaActual = ActiveSheet.Name

Sheets(HojaActual).Select

Sheets(HojaActual).Copy Before:=Sheets(1)

Por otro lado, para el bucle de limpieza se utiliza el código de la última fila, recorriendo desde el fin al principio, así se podrá evitar problemas de que se acorte la tabla o existan saltos en ella. A continuación, a través de la variable qColumna,  se solicita la columna donde está ubicado el criterio  y después se pide el criterio para almacenarla en la variable qCriterio. Entonces, el programador para cada celda de la columna solicitada va eliminando si el contenido es igual a la variable almacenada. 

For i = u To 2 Step -1

Cells(i, qColumna).Select

If Cells(i, qColumna) = qCriterio Then

    ActiveCell.EntireRow.Select

    Selection.Delete

End If

Next

End Sub

En conclusión, este método podría utilizarse para agilizar búsquedas en un bases de datos sin modificaciones y como un método de filtrado, así como hacerlo más amigable al usuario.

Descargar ejemplo:  Eliminar Filas Según Criterio 

Creado por: Jaime Huaman 

Deja un comentario

Required fields are marked *.