PLEASE HELP - HOW TO SPLIT AMOUNT BY MACRO

[K]

Hi,
I have data in "Sheet1" and sheet name is "DATA" and in column "D"
I'll put codes like "A , B , C" and in column "E" I have amounts (see
below)

A B C D E F G
--- col
AC CC FO CODE AMT DETAIL REF --- headings
333 GS1 XX12 A 1000 IN LIST Z8000T
667 H23 RRT3 B 2000 NOT IN Y9000X
444 J55 GHJ9 C 3000 REFERE H5633U

I want macro to split amount of column "E" when I put any code (A , B
or C) in column "D". The percentage of codes are below.

A B C ---- col
A B C -----code headings
8 10 0 ---percentages
8 10 0
9 10 0
8 10 0
8 10 50
9 10 0
8 10 0
8 10 0
9 10 0
8 10 50
8 0 0
9 0 0

Macro should throw all result in "Sheet2" and "Sheet2" name is
"Result". For example if I put code "A" in cell "D2" and amount 1000
in "E2" then macro should got through the percentage of code "A" as
shown above and then start spliting 1000 like (8/100*1000) then in
cell below (8/100*1000) ans so on. And when if put code "B" in cell
"D3" and amount 2000 against the code then macro should go through
code "B" percentages and put all split below the previous split in
"Sheet2"
Macro should produce result some thing like this in "Sheet2" or in
"Result" sheet. (See below)

A B C D E F G
----col
AC CC FO COD AMT DETAIL REF ---headings
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 90 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 90 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 90 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 80 IN LIST Z8000T
333 GS1 XX12 A 90 IN LIST Z8000T
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 200 NOT IN Y9000X
667 H23 RRT3 B 0 NOT IN Y9000X
667 H23 RRT3 B 0 NOT IN Y9000X
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 1500 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U
444 J55 GHJ9 C 1500 REFERE H5633U
444 J55 GHJ9 C 0 REFERE H5633U

 

[paul.robinson]

Hi
I doubt you will get a reply to this - it is (probably) a lot of work
to both clarify and code, and not really in the spirit of asking for
freely given help.
You will probably get help if you break the problem down into small
pieces and ask for help on each piece.
regards
Paul