Excel Calculation Process Problem

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