Sub DelL()
Dim LastRow As Long, I As Long
Application.ScreenUpdating = False
Application.Calculation = xlAutomatic
LastRow = Cells(Rows.Count, 12).End(xlUp).Row
For I = LastRow To 1 Step -1
If Cells(I, 12).Value = "Yes" Then Rows(I).EntireRow.Delete
Next I
Application.ScreenUpdating = False
Application.Calculation = xlAutomatic
End Sub
Hi VoGII
Nice code, but shouldn't the first Application.Calculation = xlManual?
Not trying to be picky, just trying not to confuse novice users - like myself.
Sub DelL()
Dim LastRow As Long, I As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
LastRow = Cells(Rows.Count, 12).End(xlUp).Row
For I = LastRow To 1 Step -1
If Cells(I, 12).Value = "Yes" Then Rows(I).EntireRow.Delete
Next I
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Sub DelM()
Dim LastRow As Long, I As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
LastRow = Cells(Rows.Count, 13).End(xlUp).Row
For I = LastRow To 1 Step -1
If Cells(I, 13).Value = "Yes" Then Rows(I).EntireRow.Delete
Next I
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Cells(1, "M")
Cells(1, "L")
Sub DelLM()
Dim LastRow As Long, I As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
LastRow = Cells(Rows.Count, 12).End(xlUp).Row
For I = LastRow To 1 Step -1
If Cells(I, 12).Value = "Yes" Or Cells(I, 13).Value = "Yes" Then Rows(I).EntireRow.Delete
Next I
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub