Borrar filas Post Autofiltro
Tengo el siguiente código en una macro para eliminar las filas que en la columna "Libre utilización" tenga un valor <=0 o que esten vacias.
Do While Not IsEmpty(ActiveCell.Offset(0, -10))
Select Case ActiveCell.Value
Case Is <= 0 Or Empty
ActiveCell.EntireRow.Delete
Case Else
ActiveCell.Offset(1, 0).Select
End Select
Loop
El punto es que el fichero a trabajar tiene algo así como 10500 filas y el proceso de eliminar fila por fila demora un poco. Por esto se me ocurrió que la macro creara un autofiltro y que filtrara la columna "Libre utilización" con los criterios mencionados, para después seleccionar las columnas que quedan y eliminarlas todas juntas.
Creo el autofiltro y filtro las columnas que deseo borrar, pero tengo el problema de seleccionar solo las columnas visibles para borrarlas, ya que también selecciona las ocultas. Por favor ayúdenme con esto.
Prometo finalizar la pregunta. :(
Do While Not IsEmpty(ActiveCell.Offset(0, -10))
Select Case ActiveCell.Value
Case Is <= 0 Or Empty
ActiveCell.EntireRow.Delete
Case Else
ActiveCell.Offset(1, 0).Select
End Select
Loop
El punto es que el fichero a trabajar tiene algo así como 10500 filas y el proceso de eliminar fila por fila demora un poco. Por esto se me ocurrió que la macro creara un autofiltro y que filtrara la columna "Libre utilización" con los criterios mencionados, para después seleccionar las columnas que quedan y eliminarlas todas juntas.
Creo el autofiltro y filtro las columnas que deseo borrar, pero tengo el problema de seleccionar solo las columnas visibles para borrarlas, ya que también selecciona las ocultas. Por favor ayúdenme con esto.
Prometo finalizar la pregunta. :(
1 respuesta
Respuesta de jferg
1