ok.
I think what you are saying is that the formulas kill your system.
So.
Use a macro to control how the sheets calculate.
LastRow= Range("A1").End(xlUp).Row
LastColumn= Range("A1").End(xlToLeft).Column
'Speed up excel by disabling some actions
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
' Enter your data column at a time.
For count = 2 to LastColumn
'I recorder myself entering this formula and edited it.
Range(cells(6,Count),Cells(LastRow, Count).FormulaR1C1 = _
"=(IF(COUNTIF(Veri!R2C17:R31C17,RC2)>0,(duvar(RC2,RC3,R2C,Veri!R3C25:R252C37)+(26.7-RC[-1])+(R5C-29.45)),0)+IF(COUNTIF(Veri!R2C18:R21C18,RC2)>0,0,0)+IF(COUNTIF(Veri!R2C19:R21C19,RC2)>0,(R3C-RC[-1]),0)+IF(COUNTIF(Veri!R2C20:R21C20,RC2)>0,(R3C-RC[-1]+RC6),0))*RC4*RC5"
Calculate
Range(cells(6,Count),Cells(LastRow, Count).value = Range(cells(6,Count),Cells(LastRow, Count).value
Next
Bookmarks