Adding a condition to a macro

[BarryL]

Hi All,

I have the below code that deletes everything that is equal to one in column D. I want to add in a condition where it deletes everything equal to one in column D as long as the corresponding row in column B is not blank.

Sub DeleteD1()
Dim LR As Long, i As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 1 Step -1
If Range("D" & i).Value = 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Thank you.

Barry

 

[Reggie74]

Try this ...

Sub DeleteD1()


    Dim LR As Long, i As Long
    
    LR = Range("D" & Rows.Count).End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    For i = LR To 1 Step -1
        If Range("D" & i).Value = 1 [B]And Range("B" & i).Value <> "" [/B]Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
    
End Sub

Hi All,

I have the below code that deletes everything that is equal to one in column D. I want to add in a condition where it deletes everything equal to one in column D as long as the corresponding row in column B is not blank.

Sub DeleteD1()
Dim LR As Long, i As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 1 Step -1
If Range("D" & i).Value = 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Thank you.

Barry

 

[BarryL]

Perfect thanks Reggie.