View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ayo Ayo is offline
external usenet poster
 
Posts: 489
Default Help Needed Fixing Code !!!!!!!!!!

I need someone to take a look at this code for me and telling me what I am
doing wrong.
What I am trying to do is delete any row where this condition is true:
c.Offset(0, 2) < "Completed" And c.Offset(0, 3) < "Completed" And _
c.Offset(0, 4) < "Completed" And c.Offset(0, 5) < "Completed"
In other words, if the values in these cells are anything but complete,
delete the entire row.

For Each c In Worksheets("Ready for DDS").Range("B2:B" & SL_lRow).Cells
If c.Offset(0, 2) < "Completed" And c.Offset(0, 3) < "Completed"
And _
c.Offset(0, 4) < "Completed" And c.Offset(0, 5) < "Completed"
Then
If rngAll Is Nothing Then
Set rngAll = c
Else
Set rngAll = Union(rngAll, c)
End If
End If
Next c
If Not rngAll Is Nothing Then rngAll.EntireRow.Delete