Posting V12

I had this question after viewing Posting Both V1.

Hi Experts,
Need A Help with VBA Code.
See Attched
1) Need To fill formula in each cell of column F if column E is <>""

=IF(AND(E3="I",D3<J3),D3,IF(AND(E3="I",D3>J3),D3+(D3*VLOOKUP($A$1,Setting!$A$1:$B$71,2,FALSE)),IF(AND(E3="I",D3=J3),D3+(D3*VLOOKUP($A$1,Setting!$A$1:$B$71,2,FALSE)),IF(E3="C",D3+(D3*VLOOKUP($A$1,Setting!$A$1:$B$71,2,FALSE)),""))))

Select allOpen in new window

2) Need to fill formula in each cell of column L if column K is <>""

=IF(AND(K3="I",J3<D3),J3,IF(AND(K3="I",J3>D3),J3-(J3*VLOOKUP($A$1,Setting!$A$1:$B$71,2,FALSE)),IF(AND(K3="I",J3=D3),J3,IF(K3="C",J3-(J3*VLOOKUP($A$1,Setting!$A$1:$B$71,2,FALSE)),""))))

Select allOpen in new window

3) Fill formula in column M - N - O till last row i.e. max row from column F or L
Formula for column M

=IF(AND(E3<>"",K3="",$G$1="Client"),(C3*N3)-(C3*F3),IF(AND(E3="",K3<>"",$G$1="Client"),(I3*L3)-(I3*N3),IF(AND(E3<>"",K3<>"",$G$1="Client"),(I3*L3)-(C3*F3),IF(AND(E3<>"",K3="",$G$1="Broker"),(C3*F3)-(C3*N3),IF(AND(E3="",K3<>"",$G$1="Broker"),(I3*N3)-(I3*L3),IF(AND(E3<>"",K3<>"",$G$1="Broker"),(C3*F3)-(I3*L3),IF(AND(E3="",K3=""),"")))))))

Select allOpen in new window

Formula for column N

=IF(AND(E3="C",K3="C"),"",IF(OR(E3="C",K3="C"),VLOOKUP(IF(E3<>"",A3,IF(K3<>"",G3)),SettelmentPrice!$A$1:$B$500,2,FALSE),""))

Select allOpen in new window

Formula for column O

=IF(AND(A3<>"",G3<>""),"Close",IF(OR(A3<>"",G3<>""),"Open",""))

Select allOpen in new window

Portfolio-V11.xlsm