Using And Function

[STEVEB]

Does anyone have suggestions for a Macro that would look in a spreadsheet with approximately 10,000 lines and:

If column D ="220" AND Column I = "January" AND Column K = "0500" THEN
Delete the entire row.

Any help would be greatly appreciated.

Thanks

[Leith Ross]

Hello SteveB,

Here is a macro that will do want you want.

Public Sub ClearSpecialRows()

Dim Row As Long

Do
Row = Row + 1
With ActiveSheet
If .Cells(Row, "A").Value = "220" Then
If .Cells(Row, "I").Value = "January" And .Cells(Row, "K").Value = "0500" Then
.Cells(Row, "A").EntireRow.Delete(xlShiftUp)
Row = Row - 1
End If
End If
Loop While .Cells(Row, "A").Value <> ""
End With

End Sub

This should getyou started,
Leith Ross

[STEVEB]

Thanks Leith, I appreciate it!

I tried your example & keep getting "Loop without Do". Am I missing something.

Thanks for your help, I appreciate it!

[Leith Ross]

Hello Steve,

Sorry for the typo. move the With ActiveSheet statement above Do.
That should clear up the problem.

Sincerely,
Leith Ross

[STEVEB]

Thanks Leith!

The Macro worked perfect, this is a HUGE time saver!

I really appreciate your help!