Dim MedianUinterceptTo As String
Dim MedianUintercept As String
''Wv''
Cells((r + rowTO), WvTo) = CStr((Round(Cells(r + rowTO, ETFtargetUto), 4)) - ((Sheets("TFimport").Cells(n, 7)) * (Cells(r + rowTO, ETFtargetCto))) - (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) * (Round(Cells(r + rowTO, ETFtargetVto), 4))) + (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) * (Sheets("TFimport").Cells(n, 28)) * (Cells(r + rowTO, ETFtargetCto))) + (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) * (Sheets("TFimport").Cells(n, 33)) * (Cells(r + rowTO, ETFtargetCto) ^ 2))) / ((Sheets("TFimport").Cells(n, 6)) - (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) * (Sheets("TFimport").Cells(n, 27) + 1E-19)))
''Wu''
Cells((r + rowTO), WuTo) = CStr((Round(Cells(r + rowTO, ETFtargetUto), 4)) / (Sheets("TFimport").Cells(n, 5))) - (((Sheets("TFimport").Cells(n, 7)) * (Cells(r + rowTO, ETFtargetCto))) / (Sheets("TFimport").Cells(n, 5))) - (((Sheets("TFimport").Cells(n, 6) + 1E-19) / (((Sheets("TFimport").Cells(n, 5)) * ((Sheets("TFimport").Cells(n, 6))) - (((Sheets("TFimport").Cells(n, 5) + 1E-19) ^ 2) / (Sheets("TFimport").Cells(n, 26) + 1E-19))) * (Sheets("TFimport").Cells(n, 27) + 1E-19))) * ((Round(Cells(r + rowTO, ETFtargetVto), 4)) - ((Sheets("TFimport").Cells(n, 7)) * (Cells(r + rowTO, ETFtargetCto))) - (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) * ((Round(Cells(r + rowTO, ETFtargetVto), 4)) - ((Sheets("TFimport").Cells(n, 28)) * (Cells(r + rowTO, ETFtargetCto))) - ((Sheets("TFimport").Cells(n, 33)) * (Cells(r + rowTO, ETFtargetCto) ^ 2))))))
'' Yv ''
Cells((r + rowTO), YvTo) = CStr((1 - ((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19))) / ((Sheets("TFimport").Cells(n, 6)) - (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) * (Sheets("TFimport").Cells(n, 27) + 1E-19))))
''Yu''
Cells((r + rowTO), YuTo) = CStr(((Sheets("TFimport").Cells(n, 6) + 1E-19) / (((Sheets("TFimport").Cells(n, 5)) * ((Sheets("TFimport").Cells(n, 6))) - (((Sheets("TFimport").Cells(n, 5) + 1E-19) ^ 2) / (Sheets("TFimport").Cells(n, 26) + 1E-19))) * (Sheets("TFimport").Cells(n, 27) + 1E-19))) * (((Sheets("TFimport").Cells(n, 5) + 1E-19) / (Sheets("TFimport").Cells(n, 26) + 1E-19)) - 1) + (1 / Sheets("TFimport").Cells(n, 5)))
'' To Calculate the Median of U & V ETFintercept ''
''uETFintercept''
Cells((r + rowTO), IuTo) = Application.WorksheetFunction.Median(CStr((Round(Cells(r + rowTO, uETFinterceptTO), 6))))
''vETFintercept''
Cells((r + rowTO), IvTo) = Application.WorksheetFunction.Median(CStr((Round(Cells(r + rowTO, vETFinterceptTO), 6))))
Cells((r + rowTO), U_FILMTo) = CStr(((Round(Cells(r + rowTO, WuTo), 4) - ((Round(Cells(r + rowTO, YuTo), 4)) * (Round(Cells(r + rowTO, IuTo), 4))))))
Cells((r + rowTO), V_FILMTo) = CStr(((Round(Cells(r + rowTO, WvTo), 4) - ((Round(Cells(r + rowTO, YvTo), 4)) * (Round(Cells(r + rowTO, IvTo), 4))))))
If (Round(Cells(r + rowTO, IuTo), 4)) = 0 Then
Cells((r + rowTO), U_FILMTo) = Null
End If
If (Round(Cells(r + rowTO, IvTo), 4)) = 0 Then
Cells((r + rowTO), V_FILMTo) = Null
End If
r = r + 1
Loop
End Ifthis is the coding i can share it....if cant then nvm already....thk for hlp....^^