delete row if row,Col C value is "L" and next column value is zero

[banana99]

Hi, I can't seem to figure this one out. I think I'm close, but it just seems to keep deleting each row and will not exit the loop if the first condition is false. Thanks!

     With ActiveSheet
                .Select
                ViewMode = ActiveWindow.View
                ActiveWindow.View = xlNormalView
                .DisplayPageBreaks = False
                Firstrow = .UsedRange.Cells(1).Row
                Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
                For Lrow = Lastrow To Firstrow Step -1
                    With .Cells(Lrow, "C")
                        If Not IsError(.Value) Then
                        
                            If .Value = "L" & ActiveCell.Offset(0, 1).Select = 0 Then .EntireRow.Delete
                        Else: End If
                    End With
                Next Lrow
            End With

 

[sky1in5]

Sub test()
Dim LastRow, i As Long
LastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If ActiveSheet.Range("C" & i).Value = "l" Then

If ActiveSheet.Range("D" & i).Value = "0" Then

Rows(i).Delete
i = i - 1
i = i + 1
i = i - 1

End If

End If
Next
End Sub

 

[banana99]

Thanks sky, I think this almost does it, but I need to look for a string "L" for column C and looking for Column D same row with value of zero, if then and only then delete that row. Column C must contain "L" first, then if D same row is zero then delete.

 

[mirabeau]

Sub xnx()
Dim i, s
s = Chr(30)
For i = Cells.SpecialCells(11).Row To 1 Step -1
    If Cells(i, "C") & s & Cells(i, "D") = "L" & s & 0 Then Rows(i).Delete
Next
End Sub

 

[banana99]

Thanks mirabeau! this works awesome!