Macro para acelerar eliminación de filas
Por consulta hay forma de acelerar la macro indicada para hacer más rápido la eliminación de celdas. Gracias.
'ELIMINAR Operador
Range("AW1").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "CANALES" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
1 respuesta
Respuesta de Abraham Valencia
1
[Hola
Siempre los procesos que recorren celdas seleccionándolas son más lentos que aquellos en que no las seleccionas. Prueba así:
Sub Prueba() Dim UltimaFila As Long Let UltimaFila = Cells(Rows.Count, "AW").End(xlUp).Row For x = UltimaFila To 1 Step -1 If Cells(x, "AW") = "CANALES" Then Cells(x, "AW").EntireRow.Delete End If Next x End Sub
Comentas.
Abraham Valencia
