delete entire row if any of 3 criterea are met

[SQUIDD]

Hello everyone and anyone.

i want to create a code that deletes the entire row if

1, date in column A is equal to or newer than date in SHEET("APP") CELL ("C3")
2, text in column H does not match or equal text in SHEET("APP") CELL ("C2")
3, the 1st letter in coulumn M is not the letter "A"

I will probably manage to sort this out eventually, but im running out of time.
Not to mention, it would not be a very neat code.
I would probably do it in 3 loops.

any professional help will be greatly appriciated.

Dave

 

[Rick Rothstein]

i want to create a code that deletes the entire row if

1, date in column A is equal to or newer than date in SHEET("APP") CELL ("C3")
2, text in column H does not match or equal text in SHEET("APP") CELL ("C2")
3, the 1st letter in coulumn M is not the letter "A"

Your thread title and the above description makes it unclear whether all of those conditions must be met or if only any one (or more) of them are met... which is it?

 

[SQUIDD]

Hello Rick

Hope you had a good christmas

sorry for not being clearer

if any of those conditions are met, so i want all newer dates or same date gone, all that do not match in column H and all that do nt have A as the 1st charracter.
if i was to write 3 codes, it would work.

please see what i have so far below

Sub Delete()
Dim LR As Long

Application.ScreenUpdating = False
    
    For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value >= Range("'app'!$c$3") Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR
    
    For LR = Range("H" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("H" & LR).Value <> Range("'app'!$c$2") Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR
    
Application.ScreenUpdating = True
End Sub

just havent worked out the A problem yet in comment 3

But like i said, it will be messy.

thanks rick

Regards

dave

 

[SQUIDD]

Ok

so i have now got this far,

Sub Delete()
Dim LR As Long

Application.ScreenUpdating = False
    
    For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value >= Range("'app'!$c$3") Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR
    
    For LR = Range("H" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("H" & LR).Value <> Range("'app'!$c$2") Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR
    
    For LR = Range("M" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Left(Range("M" & LR), [1]) <> "A" Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR
    
Application.ScreenUpdating = True
End Sub

 

[SQUIDD]

baby steps lol

think im there, unless anyone can see something wrong with it

[CODE] For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value >= Range("'app'!$c$3") Or Range("H" & LR).Value <> Range("'app'!$c$2") Or Left(Range("M" & LR), [1]) <> "A" Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR

[/CODE]

dave