Delete duplicate entry if both entries have corresponding pairs

Please Login or Register  to view this content.

The original code has varOut(i,1) >1 instead of long "if" line as seen. Here is the logic I am trying to incorporate:

Assume this simple table

OrderA	Credit
OrderA	Invoice
OrderB	Credit
OrderB	Credit

I want to delete those duplicates that have credit and invoice pairings basically (order A only), and so here is the logic I am following:

If (OrderValue) And (Invoice) = (OrderValue) And (Credit) then Rows.Delete (Boolean test results in true only if both duplicates have invoice and credit pairing)

At the moment this is the error I am getting: subscript out of range.

WB.png

Rather than such a small sample, it would be easier to help and test possible solutions if you could attach a copy of your file. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary). See the yellow banner at the top of this page for instructions to attach a file.

I don't need the actual file, just a dozen or so rows of generic data that is organized and formatted in exactly the same way as the original file.

"This is it to be honest."
????