problems deleting rows

[ces005]

Hi,

Here is my code:

   Rw = Range("A65536").End(xlUp).Row
   Counter = 2
   Do Until Counter > Rw
      If (Cells(Counter, LastCol).Value = False) Then
         Rows(Counter).Delete
      End If
      Counter = Counter + 1
   Loop

I see the code executing the Delete command but I still see some of the rows still remaining in the table (e.g. if delete is called 5 times, I only see 3 rows being deleted).

The last column has the value "TRUE" or "FALSE". I am trying to delete all rows in the table where the last column value is "FALSE". I am not filtering on last column being FALSE value and deleting what is shown because I don't want to delete the first row (since I want to pivot on this value). Any advice?

-Eileen

 

[agihcam]

how about reversing the loop?

rw = Range("A65536").End(xlUp).Row
   Counter = rw
   Do Until Counter < 2
      If (Cells(Counter, LastCol).Value = False) Then
         Rows(Counter).Delete
      End If
      Counter = Counter - 1
   Loop

 

[Krishnakumar]

Also wit h Autofilter..

With Range(Cells(1, LastCol), Cells(Cells(Rows.Count, "A").End(xlUp).Row, LastCol))
    .AutoFilter field:=1, Criteria1:="FALSE"
    .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
End With

 

[ces005]

Hi Kris,

Reversing the logic seems to have fixed the problem, although I don't understand why. Thanks for the help.

-Eileen