VBA loop to reconcile and delete entier rows

[MarcRowing]

Hi everyone,

I am struggling to write a loop which needs to do the following:

Check if Cells(J,1) = Cells(J+1,1) and Cells(J,3) = Cells(J+1,4) when >0 or Cells(J+1,4) = Cells(J,3) when >0
then delete both the row J and J+1

I have managed to create a loop that check if Cells are equal (but also when both are = 0) and do not find how to delete them.

Could you please help me

Thank you

 

[BarryL]

if you are deleting in a For loop you will need to step backwards like below.

can you paste your current code?

For j = lastrow To 1 Step -1


'if condition here then
Rows(j).EntireRow.Delete
Next

 

[MarcRowing]

Thank you very much!

I just had to add some more "dim" and your line and it worked