Macro to automate Multiple "IF Formula"

[NeilATaylor]

Good afternoon,

I would really like to see a macro that does the following, I'm sure someone has something already like this, if so, please share!

I have a worksheet of 5 columns. What I would like to do is subtotal an amount in column d, where the item code in column b are the same. Lets say there are 5 rows with code 8150 in column b, I want to add all these rows up BUT ALSO add up any rows which are 8150+1 (x+1) i.e. 8151. All transactions where the code in column B, x + (x+1) = 0. All true results should then be cut and pasted into a new worksheet (one worksheet for all transactions that are true).

e.g.

8150 1233
8150 12
8150 644
8151 -2084
8151 -10
8151 -205

Total of above amounts is zero, therefore cut and paste to new spreadsheet.

Now that I think about it, its actually quite complicated.

Any ideas?

Thanks in advance

Neil

 

[NeilATaylor]

cool, I googled that and realise the difference between long and integer.
my new error is now the error message "Run Time 1004 : AutoFilter method of range class failed"
Sorry for this tedious step by step problem solving process. I ordered a VBA for dummies book yesterday, should have it in a few days...

 

[Oaktree]

You'll get that error if you try to filter for a value that isn't contained in your list.

I'm guessing you need to adjust the Field # in:

Sheets("Other Sheet").Range("B1").AutoFilter Field:=1

If you're filtering column C for the criterion, the Field should be 3, etc...