delete entire row if present a difference....

[sal21]

macro1)

... i have a sheet with many data for example A3:R65536 in the column I and J are present a number. My problem is to delete entire row if the difference value is <>0.

Example in the cell I230 is 1000 int cell J230 is 999 delete entire column... (difference =1)

macro 2)

Make another same macro with two verifycation compare I ad J and K and L

if the I <> J and K<>L delete entire row.

make this do until A is blank in every two case

Tks.

 

[onlyadrafter]

Hello,

Try these two macros

Sub DELETE_DIFF()
For MY_ROWS = 65536 To 3 Step -1
'For MY_ROWS = Range("J65536").End(xlUp).Row To 3 Step -1
    If Range("J" & MY_ROWS).Value - Range("I" & MY_ROWS).Value <> 0 Then
        Rows(MY_ROWS).Delete
    End If
Next MY_ROWS
End Sub

Sub DELETE_DIFF_2()
For MY_ROWS = 7 To 3 Step -1
'For MY_ROWS = Range("J65536").End(xlUp).Row To 3 Step -1
    If Range("J" & MY_ROWS).Value <> Range("I" & MY_ROWS).Value And _
        Range("J" & MY_ROWS).Value <> Range("I" & MY_ROWS).Value Then
        Rows(MY_ROWS).Delete
    End If
Next MY_ROWS
End Sub

If the data doesn't go to ror 65536 use the line with the 'at the beginning (delete the ' and put a ' at the from of the line above).

Any use?

 

[sal21]

Hello,

Try these two macros

Sub DELETE_DIFF()
For MY_ROWS = 65536 To 3 Step -1
'For MY_ROWS = Range("J65536").End(xlUp).Row To 3 Step -1
    If Range("J" & MY_ROWS).Value - Range("I" & MY_ROWS).Value <> 0 Then
        Rows(MY_ROWS).Delete
    End If
Next MY_ROWS
End Sub

Sub DELETE_DIFF_2()
For MY_ROWS = 7 To 3 Step -1
'For MY_ROWS = Range("J65536").End(xlUp).Row To 3 Step -1
    If Range("J" & MY_ROWS).Value <> Range("I" & MY_ROWS).Value And _
        Range("J" & MY_ROWS).Value <> Range("I" & MY_ROWS).Value Then
        Rows(MY_ROWS).Delete
    End If
Next MY_ROWS
End Sub

If the data doesn't go to ror 65536 use the line with the 'at the beginning (delete the ' and put a ' at the from of the line above).

Any use?

you are simply a WIZARD! TKS.