Hi All
I have a really large range that requires mapping and recalculation and is taking a long time to recalc, any suggestions and ideas on how to make this more efficient? was thinking a loop or defining integers but i am really unfamiliar with this function. mapping is on 20457 rows and 34 columns and it uses index match as the primary formula that looks over 2 other data sets the largest being 306000 rows and about 40 columns
Currently macro is:
Sub UpdateCourseDetailed()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("P16:AW16").AutoFill Destination:=Range("P16:AW" & Cells(Rows.Count, "C").End(xlUp).Row)
Call FastRecalcSheets(True)
'Output.ResetFiltering
Range("P17:AW" & Cells(Rows.Count, "C").End(xlUp).Row).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Call Fast Relcalc part
Sub FastRecalcSheets(Optional SilentMode As Boolean = False)
CRSEDETAILEDDATA.Calculate
If Not SilentMode Then
MsgBox "Recalculation complete."
End If
End Sub
I have a really large range that requires mapping and recalculation and is taking a long time to recalc, any suggestions and ideas on how to make this more efficient? was thinking a loop or defining integers but i am really unfamiliar with this function. mapping is on 20457 rows and 34 columns and it uses index match as the primary formula that looks over 2 other data sets the largest being 306000 rows and about 40 columns
Currently macro is:
Sub UpdateCourseDetailed()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("P16:AW16").AutoFill Destination:=Range("P16:AW" & Cells(Rows.Count, "C").End(xlUp).Row)
Call FastRecalcSheets(True)
'Output.ResetFiltering
Range("P17:AW" & Cells(Rows.Count, "C").End(xlUp).Row).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Call Fast Relcalc part
Sub FastRecalcSheets(Optional SilentMode As Boolean = False)
CRSEDETAILEDDATA.Calculate
If Not SilentMode Then
MsgBox "Recalculation complete."
End If
End Sub