Delay worksheet_calculate

[paulshlapa]

Hi everyone,

Need your help on this one. If works all right but my slicers flicker and it does disturb, i need to fire the precediure at a certain point, so it is not needed all the time. Is there a way to somehow activate the worksheetcalculation procedure with a macro or any other ideas?

Private Sub Worksheet_Calculate()

Application.ScreenUpdating = False

 
Static OldVal1 As Variant
Static OldVal2 As Variant
Static OldVal3 As Variant
Static OldVal4 As Variant
Static OldVal5 As Variant
Static OldVal6 As Variant
Static OldVal7 As Variant
Static OldVal8 As Variant


If Range("AL2").Value <> OldVal1 Then
    OldVal1 = Range("AL2").Value
    Call RF

ElseIf Range("AM2").Value <> OldVal2 Then
    OldVal2 = Range("AM2").Value
    Call SEAL

ElseIf Range("AN2").Value <> OldVal3 Then
    OldVal3 = Range("AN2").Value
    Call SUVPCR


ElseIf Range("AO14").Value <> OldVal4 Then
    OldVal4 = Range("AO14").Value
    Call Segment

ElseIf Range("AU11").Value <> OldVal5 Then
    OldVal5 = Range("AU11").Value
    Call RRC
   
ElseIf Range("AW11").Value <> OldVal6 Then
    OldVal6 = Range("AW11").Value
    Call WG
   
ElseIf Range("AY31").Value <> OldVal7 Then
    OldVal7 = Range("AY31").Value
    Call dB
   
ElseIf Range("BA11").Value <> OldVal8 Then
    OldVal8 = Range("BA11").Value
    Call Noise_em

End If

Application.ScreenUpdating = True

End Sub

Thank you very much

 

[Chihiro]

Use Application.Calculation property.
https://docs.microsoft.com/en-us/office/vba/api/excel.application.calculation

Basically set it to manual mode at start, and then set it back to auto at end.

 

[paulshlapa]

This is really good stuff. Thank you very much