I have 250.000 lines and I wanted to erase all lines that have a 0 in col AR. This takes too much time using a filter and deleting only visible cells, so I wrote a code. The thing is that I would like to see the progress, but not adding a form, only the number of iteration would be enough.
Is there a way to show the iteration number while running the loop?
My code is:
Sub delrow()Application.Calculation=xlCalculationManualApplication.ScreenUpdating = FalseWith Sheets("bners")LR3 = Range("A"& Rows.Count).End(xlUp).RowFor i3 = 3 To LR3 a = Sheets("bners").Range("AR"& i3).Value If a = 0 Then Rows(i3).Delete Else End IfNext i3End WithApplication.calculateApplication.ScreenUpdating = TrueEnd Sub
Thanks!