Delete rows macro help

[Jazzer]

Hi Guys<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I use a macro to delete rows when a cell contains specific data.<o></o>
on another sheet I would like to use some similar but with slightly more complicated variables<o></o>
<o> </o>
Basically I want to delete any row which does not contain 710 in column K unless that row contains 1788 in column N in which case it can stay!<o></o>
<o> </o>
Can anybody help please?<o></o>
<o> </o>
Thanks<o></o>
James<o></o>
<o> </o>

 

[kpark91]

Put this in your worksheet moduel

Sub kpark91July132011()
    Application.ScreenUpdating = False
    Dim i&, LR&
    LR& = Range("a" & Rows.count).End(xlUp).Row
    For i =  LR To 1 Step - 1
        If Range("N" & i).Value <> 1788 Then
            If Range("K" & i).Value <> 710 Then
                Range("A" & i).EntireRow.Delete
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Desu Nota from Columbus]

Sub DeleteRows()
Dim r As Long
Dim lrow As Long
Application.ScreenUpdating = False
lrow = Range("K" & Rows.Count).End(xlUp).Row
For r = lrow To 2 Step -1

If Cells(r, 11).Value <> 710 And Cells(r, 14).Value <> 1788 Then
    Rows(r).Delete
End If

Next r
Application.ScreenUpdating = True
End Sub

Try this

 

[Desu Nota from Columbus]

You beat me to it Kpark...

 

[Jazzer]

Sub DeleteRows()
Dim r As Long
Dim lrow As Long
Application.ScreenUpdating = False
lrow = Range("K" & Rows.Count).End(xlUp).Row
For r = lrow To 2 Step -1
 
If Cells(r, 11).Value <> 710 And Cells(r, 14).Value <> 1788 Then
    Rows(r).Delete
End If
 
Next r
Application.ScreenUpdating = True
End Sub

Try this

I should mention the data starts in Row 9 - is there specific way that I should include the range?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[kpark91]

Just change

For r = lrow To 2 Step - 1

to

For r = lrow To 9 Step -1