Mejorar tiempo de ejecucion macros, Eliminar Filas

maua_1726
Message postés
1
Date d'inscription
jueves, 21 de julio de 2022
Estatus
Miembro
Última intervención
jueves, 21 de julio de 2022
- 21 jul 2022 a las 16:31

Tengo este codigo el cual me recorre las filas evaluando la columna "E", en este caso evalua si en la columna tiene estos datos "Pajaritos No. 1" o "Pajaritos No. 2", y si es asi, que elimine la fila completa, pero al ejecturala se alenta mucho el proceos tarda como 1 min o aveces mas.

Como puedo mejorar esto.

Saludos

Sub borrarFilas()


    Dim ultimaFila As Long
    Dim fila As Long
      ultimaFila = Hoja1.Cells(Rows.Count, "E").End(xlUp).Row
    
    

    
    
    For fila = 5 To ultimaFila
    
        If Hoja1.Cells(fila, 5) = "Pajaritos No. 1" Or Hoja1.Cells(fila, 5) = "Pajaritos No. 2" Then
            Hoja1.Rows(fila).EntireRow.Delete
            ultimaFila = ultimaFila - 1
            fila = fila - 1
        End If
        If ultimaFila = fila Then
            MsgBox "Proceso terminado exitosamente!"
          
            Exit Sub
        End If
    Next fila
    
    
    
    
    
End Sub


Windows / Chrome 103.0.0.0