Find and compare value after filling cell

I need some help.

I need copare values column A in sheet("Org") with cell A23 in sheet("NET"), case equal, get value in cell A22 ->LEFT(NET!$A$22;7) and fill adjacent cell column A sheet("Org")

how make it any moment cells change values (using worksheet_change)
Look my file attachment.

Ex: B and C and D need filled.

After code run (Result in sheet("Org")....A20=11,0550, B20=5,8648, C20=7,8808.)

Part I.
In A20 sheet("Org") has date 30/09/2014, is equal A23 in sheet("NET"), then in B20 sheet("Org"), receive A22 in sheet("NET") value cell.
Part II.
In A20 sheet("Org") has date 30/09/2014, is equal A9 in sheet("NET"), then in C20 sheet("Org"), receive A7 in sheet("NET") value cell.

Part III.
In A20 sheet("Org") has date 30/09/2014, is equal A9 in sheet("NET"), then in D20 sheet("Org"), receive A8 in sheet("NET") value cell.


Cross-Post
http://www.vbaexpress.com/forum/show...afte-fill-cell

Thank you!

I try explaining...
Imagine formulas below in COlumn B, C, D.
ColumnB=IF(A2=NET!$A$23;LEFT(NET!$A$22;7);0)
ColumnC=IF(A2=NET!$A$9;LEFT(NET!$A$7;7);0)
ColumnD=IF(A2=NET!$A$9;LEFT(NET!$A$8;7);0)

note that today is the 30th of the month September, when looking the next day (01 October), use this formula and the date in column A is other than (NET! $ A $ 23), the value of that cell had become zero .

My file receives data from the internet every day this data is updated.

formula to solve, if not for the fact of the value change to Zero when the date changes.

what I want is to keep these values after the date change!

Originally you said you wanted the WorksheetChange event to trigger the update.

yes, because when any cell in columnA change date, value in clumnB,C,D, not change together formula.


Att

Sorry, i don't know speak englih.........The code has see whal cell columnA has date equal today (in tab Orig).

If equal today get value in NET and paste adjecent cell columnA.

Ok, i understand!

Thank you!!