Macro to allocate receipt amount with invoices based on fifo method

[amandeep08]

Hi,

In my workbook I have customer wise data along with Document Number, receipts amount and invoice amount. I want the Macro that will provide the result as per below approach.

I need a code which would allocate customer wise all the receipts with the Invoices serial no. wise.

If a single receipt is not sufficient to adjust a Invoice, a row is inserted and in that row the remaining balance of invoice is adjusted against next receipt. I am trying to look into this macro for the last 4 months but no one is able to help me out as of now.

I want this Macro because there are some 2K customers to whom i have to adjust the receipts every month manually.

Thanks in advance!

Sample (2) - Copy.xlsm
	A	B	C	D	E	F	G	H	I	J
1	Data Input					RESULT
2	Customer Name	Doc No.	Amount	Description		S.No.	Customer	Invoice	Receipt no.	Receipt adjusted
3	ABC	A12	2,865	Receipt		A56	ABC	14125	A12	2865
4	ABC	A34	4,298	Invoice		A56	ABC	14125	D34	11260
5	ABC	A56	14,125	Invoice		A34	ABC	4298	D34	3065
6	DEF	C54	950	Invoice		A34	ABC	4298	K432	1233
7	DEF	C75	1,000	Receipt		C54	DEF	950	C75	950
8	DEF	T435	2,500	Invoice		T435	DEF	2500	C75	50
9	GDE	U345	3,254	Invoice		T435	DEF	2500	N354	120
10	GDE	T346	6,578	Invoice		U345	GDE	3254	G653	3254
11	GDE	G653	32,352	Receipt		T346	GDE	6578	G653	6578
12	ABC	D34	14,325	Receipt		J532	GDE	15757	G653	15757
13	GDE	J532	15,757	Invoice		P763	GDE	4336	G653	4336
14	DEF	N354	120	Receipt
15	ABC	K432	1,433	Receipt
16	GDE	P763	4,336	Invoice
17	DEF	B754	65,432	Invoice
Case