meriambambu
New Member
- Joined
- Jun 15, 2016
- Messages
- 17
inventory | |||||||||||
apples | 375 | ||||||||||
oranges | 510 | ||||||||||
pears | 230 | ||||||||||
before sale of pears | |||||||||||
inventory | |||||||||||
apples | 375 | ||||||||||
oranges | 510 | ||||||||||
pears | 240 | ||||||||||
sales | |||||||||||
pears | 10 | done | |||||||||
this macro checks all sales | |||||||||||
and if not marked done | |||||||||||
updates inventory | |||||||||||
and marks that sale "done" | |||||||||||
For j = 20 To 100 | |||||||||||
If Cells(j, 1) = "" Then GoTo 100 | |||||||||||
If Cells(j, 3) <> "" Then GoTo 50 | |||||||||||
For k = 3 To 5 | |||||||||||
If Cells(k, 1) <> Cells(j, 1) Then GoTo 20 | |||||||||||
Cells(k, 2) = Cells(k, 2) - Cells(j, 2): Cells(j, 3) = "done": GoTo 50 | |||||||||||
20 Next k | |||||||||||
50 Next j | |||||||||||
100 End Sub | |||||||||||
pears | 3 | initial stock | 100 | apples | 100 is in cell H1 | ||||||||
lemons | 7 | ||||||||||||
apples | 2 | ||||||||||||
oranges | 4 | current stock | 78 | apples | |||||||||
pears | 3 | ||||||||||||
lemons | 7 | ||||||||||||
apples | 2 | ||||||||||||
oranges | 4 | ||||||||||||
pears | 7 | ||||||||||||
lemons | 2 | ||||||||||||
apples | 4 | formula giving 78 | |||||||||||
oranges | 2 | ||||||||||||
pears | 4 | =$H$1-SUMPRODUCT(($A$1:$A$100=$I$1)*($B$1:$B$100)) | |||||||||||
lemons | 3 | ||||||||||||
apples | 7 | ||||||||||||
oranges | 2 | ||||||||||||
pears | 4 | I set the limit to A100 so you can add sales in the future | |||||||||||
lemons | 3 | ||||||||||||
apples | 7 | easy to add new purchases of apples to the formula | |||||||||||
oranges | 5 | ||||||||||||
=$I$4-SUMPRODUCT(($M$4:$M$100=$H$4)*($N$4:$N$100)) |
=$I$5-SUMPRODUCT(($M$4:$M$100=$H$5)*($N$4:$N$100)) |
=$I$6-SUMPRODUCT(($M$4:$M$100=$H$6)*($N$4:$N$100)) |
=$I$7-SUMPRODUCT(($M$4:$M$100=$H$7)*($N$4:$N$100))=$I$4-SUMPRODUCT(($M$4:$M$100=$H$4)*($N$4:$N$100))=$I$5-SUMPRODUCT(($M$4:$M$100=$H$5)*($N$4:$N$100)) =$I$6-SUMPRODUCT(($M$4:$M$100=$H$6)*($N$4:$N$100)) =$I$7-SUMPRODUCT(($M$4:$M$100=$H$7)*($N$4:$N$100)) This formula cell references were input by me manually. Can i make it automatically increase by 1 cell reference ? |