How to assign unit cost to each sales base on FIFO

[solau]

Hi Dudes,

I am having this VBA task and i am facing extreme difficulties. It will be great if I can receive any suggestions/ inspiring solutions to this problem.

Basically, there are three worksheets in my excel workbook.

First,it is the purchase worksheet where the columns are as below. (I have like 10 different products, but to simplify the situation, lets assume there is only product A)

Date	Product	Quantity	Cost
01-Jan-16	Product A	5	100
02-Jan-16	Product A	10	130
03-Jan-16	Product A	15	90
04-Jan-16	Product A	25	105

<colgroup><col><col span="3"></colgroup><tbody>
</tbody>

Second, it is the sales worksheet where the columns are as below.

Date	Product	Quantity	Price	Total amount
03-Jan-16	Product A	3	320	960
04-Jan-16	Product A	2	320	1280
05-Jan-16	Product A	4	320	960

<tbody>
</tbody>

Third, it is the PNL sheet which extracts information from the first and second sheet and calculate the daily PNL on product A. This is where I will need the VBA codes, I am fine with the part to extract the information from first and second sheet. However, I am not able to assign costs to.

The below is the ideal look. It will extract all the sales from sheet 2 and try to assign the unit cost (column 5) base on purchase from sheet 1. The question is how i can get its unit cost (column 5) from sheet 1 base on FIFO.

For example, the sales on 3 Jan should have a unit cost of 100 because it is from the first purchase and so is the sales on 4 Jan.

For the sales on 5 Jan, since the first purchase are all sold, its unit cost will be from the second purchase on 2 Jan and it will be 130.

Date	Product	Quantity	Unit Price	Unit Cost	Unit Profit	Total Profit
03-Jan-16	Product A	3	320	100	220	660
04-Jan-16	Product A	2	320	100	220	440
05-Jan-16	Product A	4	320	130	190	760

<tbody>
</tbody>

Thank you very much for the kind help!

 

[solau]

ha Mick, this is not more robust, the calculation results in Sheet 3 (E, F , G ) are all wrong haha.

But I have amended it and it is working fine.

Thanks so much showing all the arrays and it helps improve my understanding of what you are doing there !

Coding is really fun and sometimes, I just need to think out of the box.

There is no certain answer and diff ppl can have diff solutions to a specific problems .

Thanks so much !!!!

 

[MickG]

Glad you're getting to grips with it !!
Regrds Mick

 

[solau]

Hi Mick,

From the codes, I am having some questions on array.

The below is for copying cells value into the array for later manipulation in the purchase sheet (the one which records costs of the purchase).

<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}x\:* {behavior:url(#default#VML);}.shape {behavior:url(#default#VML);}</style><![endif]-->

Date	Product	Quantity	Cost
01-Jan	Product A	4	100
02-Jan	Product B	2	130

<!--StartFragment--> <colgroup><col width="65" span="4" style="width:65pt"> </colgroup><tbody>
<!--EndFragment--></tbody>

The below codes are from you.


-------From Mick,
Dim i, ii, c As Integer
Dim stup()


c = 0
For Each prod In Range(Cells(2, 2), Cells(3, 2))


For i = 1 To prod.Offset(, 1)
c = c + 1
ReDim Preserve stup(1 To 4, 1 To c)
stup(1, c) = prod.Offset(, -1)
stup(2, c) = prod
stup(3, c) = prod.Offset(, 1)
stup(4, c) = prod.Offset(, 2)
Next i


Next prod

------ from Mick

When we look at the cells(x,y), x is the row index and y is the column index

Hence, I think it will be more direct if I code like the below. Also, it will not require the use of transpose when I later want to put the array value into the sheets.

Sadly, I will receive an error saying that "Subscript out of range".

I have been searching around and still cannot get an answer to fix my codes.

Can you please provide some insights?

----from Harris
Dim i, ii, c As Integer
Dim stup()


c = 0
For Each prod In Range(Cells(2, 2), Cells(3, 2))


For i = 1 To prod.Offset(, 1)
c = c + 1
ReDim Preserve stup(1 To c, 1 To 4)
stup(c, 1) = prod.Offset(, -1)
stup(c, 2) = prod
stup(c, 3) = prod.Offset(, 1)
stup(c, 4) = prod.Offset(, 2)
Next i


Next prod
-----from Harris