Macro to compare row criteria and cut to tab

[somesoldiers]

Hi guys

Am working on a macro which needs to do the below
Data is sorted by A. Where 1 row matches the row below on Columns A, C, ABS D, H, I and J both rows should be copied to Boxes tab. Where there is only a single a/c number or both rows don't match on any 1 of the criteria- rows should remain on the Data tab.

Appreciate any help

Thanks

Noel

[pierre08]

Hi,
try this:

Please Login or Register  to view this content.

Hope it helps

[somesoldiers]

Thanks Piere

am getting a syntax error for below line?

For i = 1 To Range("A1").End(xlDown).Row Sheets("Data").Activate


Thanks

Noel

Edit: my fault was th way I was copying it, let me test and let you, know, thanks again

[somesoldiers]

ok almost there, I have amended slightly to a/c for the ABS value of D- this seems to have worked. I just need to amend slightly so that both matching rows will be copied not just one, can you advise, thanks

Please Login or Register  to view this content.

[pierre08]

Just put this :

Please Login or Register  to view this content.

in steed of:

Please Login or Register  to view this content.

[somesoldiers]

looks good now, thanks a lot for your help Pierre