akshatk1991
New Member
- Joined
- May 6, 2013
- Messages
- 13
Hey,
I have a 25 row table stretching into many columns arranging monthly data from 2008 to 2015. Now from march 2013 onwards, i have the following formula, which updates the value if its an actual value, or uses a formula to forecast.
I want to copy these entire range of columns to another sheet, before they are updated, so as to compare the actual value versus what i had predicted for it. Is there a way to do this via vba, i am basically looking for a code which will copy the value's based on a condition so as to copy the data before updating
=IF(((INDEX(Reuters_Gasoline!$A$4:$H$108,MATCH(Gasoline_Balance!BO$6,Reuters_Gasoline!$A$4:$A$156,0),MATCH(Gasoline_Balance!$B$13,Reuters_Gasoline!$A$4:$H$4,0=0,BO12*BO11,((INDEX(Reuters_Gasoline!$A$4:$H$108,MATCH(Gasoline_Balance!BO$6,Reuters_Gasoline!$A$4:$A$156,0),MATCH(Gasoline_Balance!$B$13,Reuters_Gasoline!$A$4:$H$4,0
So far, i have started with this
Sub Copy_FC()
Sheets("Gasoline_Balance").Range("B6:B25").Copy
Sheets("Delta").Range("A1").PasteSpecial _
Paste:=xlPasteValues
End Sub
Any help towards a solution will be greatly appreciated! thanks!
I have a 25 row table stretching into many columns arranging monthly data from 2008 to 2015. Now from march 2013 onwards, i have the following formula, which updates the value if its an actual value, or uses a formula to forecast.
I want to copy these entire range of columns to another sheet, before they are updated, so as to compare the actual value versus what i had predicted for it. Is there a way to do this via vba, i am basically looking for a code which will copy the value's based on a condition so as to copy the data before updating
=IF(((INDEX(Reuters_Gasoline!$A$4:$H$108,MATCH(Gasoline_Balance!BO$6,Reuters_Gasoline!$A$4:$A$156,0),MATCH(Gasoline_Balance!$B$13,Reuters_Gasoline!$A$4:$H$4,0=0,BO12*BO11,((INDEX(Reuters_Gasoline!$A$4:$H$108,MATCH(Gasoline_Balance!BO$6,Reuters_Gasoline!$A$4:$A$156,0),MATCH(Gasoline_Balance!$B$13,Reuters_Gasoline!$A$4:$H$4,0
So far, i have started with this
Sub Copy_FC()
Sheets("Gasoline_Balance").Range("B6:B25").Copy
Sheets("Delta").Range("A1").PasteSpecial _
Paste:=xlPasteValues
End Sub
Any help towards a solution will be greatly appreciated! thanks!