Mejorar Sencilla Macro
Que tal Experto, espero que te encuentres bien!!!
Quisiera ver si es posible mejorar esta sencilla Macro, la utilizo para borrar files que cumplen una condición, pero ahora la estoy ejecutando en un archivo con bastantes registros y veo que demora mucho tiempo......lleva mas de 20 minutos ejecutándose:
Sub EliminarFilas()
'Hacemos un bucle Do While el cual se ejecutará hasta que haya una celda vacía
Do While ActiveCell.Value <> "" 'La condición
If ActiveCell>=5 Then '... Elimina la fila
ActiveCell.EntireRow.Delete ActiveCell.Offset(-1, 0).Select
Else
End If
'Recorre una fila hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Gracias!!!!
1 Respuesta
Prueba con esta macro.
Sub borrafila()
'Por.DAM
fila = ActiveCell.Row
fi = fila - 1
f2 = fila
If fila = 1 Then fi = 1: f2 = 2
col = ActiveCell.Column
uf = Cells(Rows.Count, col).End(xlUp).Row
Rows(fi).Select
ActiveSheet.AutoFilterMode = False
Selection.AutoFilter
ActiveSheet.UsedRange.AutoFilter _
Field:=col, Criteria1:=">=5"
Rows(f2 & ":" & uf).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
End SubDe igual forma , seleccionas una celda y de ahí hacia abajo borrará las filas que sean mayores o iguales a 5.
Saludos. DAM
Si es lo que necesitas.
