DELETE ROW

[verluc]

I have a sheet with 6 columns(A:F)
In each row (+/- 2000 rows) is a number.
Now what I want to do is to delete the entire row is the difference between A:B or between B:C or between C:D or between D:E or between E:F is more then 15.
Who can help me?
Thanks in advance

[Nimrod]

This should do it ... Please let me know if it works

Public Sub DeleteRow()
For rw = 1 To Cells(65536, 1).End(xlUp).Row 
    
    If (Abs((Abs(Cells(rw, 1).Value)) - (Abs(Cells(rw, 2).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 2).Value)) - (Abs(Cells(rw, 3).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 3).Value)) - (Abs(Cells(rw, 4).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 4).Value)) - (Abs(Cells(rw, 5).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 5).Value)) - (Abs(Cells(rw, 6).Value))) > 15) Then
     
     Cells(rw, rw).EntireRow.Delete
     rw = rw - 1
 
 End If
 Next

End Sub

[ This Message was edited by: Nimrod on 2002-05-18 16:47 ]

[verluc]

On 2002-05-18 16:46, Nimrod wrote:
This should do it ... Please let me know if it works

Public Sub DeleteRow()
For rw = 1 To Cells(65536, 1).End(xlUp).Row 
    
    If (Abs((Abs(Cells(rw, 1).Value)) - (Abs(Cells(rw, 2).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 2).Value)) - (Abs(Cells(rw, 3).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 3).Value)) - (Abs(Cells(rw, 4).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 4).Value)) - (Abs(Cells(rw, 5).Value))) > 15) Or _
    (Abs((Abs(Cells(rw, 5).Value)) - (Abs(Cells(rw, 6).Value))) > 15) Then
     
     Cells(rw, rw).EntireRow.Delete
     rw = rw - 1
 
 End If
 Next

End Sub

Thanks for your time to write thus macro.
When I have a very long sheet,and run your macro then I get an error on line:
Cells(rw, rw).EntireRow.Delete
Is your macro maybe limited for rows?
Thanks in advande


[ This Message was edited by: Nimrod on 2002-05-18 16:47 ]

[Tommy Bak]

Cells(rw, 1).EntireRow.Delete

regards Tommy

[Nimrod]

Thanks Tommy