Delete a an Entire row if it contains "False" in a column

[Jpruss99]

Hello,

I am trying to make a 30-Day rolling schedule based on dates for a delivery schedule. I want to be able to delete the rows that show "False" to an =AND statement I wrote if their delivery date is outside my 30-Day rolling calendar.

The AND statement is =AND(D2>=$J$3,D2<=$K$3)
Where;
- D2 is delivery date
- J3 Is =Today()
- K3 is +Today()+30

This statement returns false if that date(D2) is outside of my 30 day range, does anyone know of a formula or code in VBA that will delete entire rows if there is a column containing a text string?

-Cheers

 

[Joe4]

Welcome to the Board!

Formulas cannot delete data, only return values to the cells that they reside in. So this will require VBA.

What column is this formula that returns FALSE?
I imagine that you have multiple rows that need checking.
What is the address of the first cell in the column that might return this value?

 

[Jpruss99]

Welcome to the Board!

Formulas cannot delete data, only return values to the cells that they reside in. So this will require VBA.

What column is this formula that returns FALSE?
I imagine that you have multiple rows that need checking.
What is the address of the first cell in the column that might return this value?

Thank you for the warm welcome!

The Column that returns "FALSE" is in E. I want this to read through Rows 2-450. The first cell is E2 that returns False.

-Thanks

 

[Joe4]

Try this VBA code:

Sub MyDeleteRows()

    Dim r As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For r = 450 To 2 Step -1
        If (Cells(r, "E") <> "") And (Cells(r, "E") = False) Then Rows(r).Delete
    Next r
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
End Sub

 

[Jpruss99]

Try this VBA code:

Sub MyDeleteRows()

    Dim r As Long
   
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    For r = 450 To 2 Step -1
        If (Cells(r, "E") <> "") And (Cells(r, "E") = False) Then Rows(r).Delete
    Next r
   
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
   
End Sub

That worked perfectly! Thank you so much

 

[Joe4]

You are welcome.
Glad I was able to help!