I have the following code which compiles and runs; however, it isn't deleting rows as it should be. Basically I want the macro to check each row of Column O and if that value is < 3301, delete the entire row and shift the cels up.
The code is:
For i = 2 To 2000
If ActiveWorkbook.Worksheets(1).Cells(i, "O").Value <> "" Then
If ActiveWorkbook.Worksheets(1).Cells(i, "O").Value < 3301 Then
Rows(i).Delete Shift:=xlUp
End If
End If
Next
Just to make sure the loop is functioning properly I changed the delete line to
With Row(i).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
This made every row with the value less than 3301 highlighted yellow so the loop functions fine. Just the deleteing part of it isn't...
Bookmarks