Kod yavaş Çalışıyor

[schahi]

Merhabalar,

Buradan edindiğim kısmi bilgilerle, aşağıdaki gibi bir kod yapısı oluşturdum. Lakin Çok yavaş çalışıyor. Hızlandırmanın bir yolu var mıdır?

Private Sub CommandButton5_Click()
    Dim SonSat
         [G10:H65536].ClearContents
         [P10:AE65536].ClearContents
 
        SonSat = Cells(Rows.Count, "e").End(3).Row
        
        
        With Range("G10:G" & SonSat)
            .Formula = "=SUMIF(Stok!A:A,E10,Stok!G:G)"
            .Value = .Value
        End With
        
        With Range("h10:H" & SonSat)
            .Formula = "=SUMIF(Sas!G:G,E10,Sas!J:J)"
            .Value = .Value
        End With
        With Range("P10:Q" & SonSat)
            .Formula = "=SumIfS(Satış!$E:$E,Satış!$A:$A,P$9,Satış!$C:$C,$E10)"
            .Value = .Value
            
        End With
        
            
        
 
Devam: Application.EnableEvents = True
End Sub

 

[cengizank]

Private Sub CommandButton5_Click()
[COLOR="red"]Application.Calculation = xlCalculationManual[/COLOR] 'Otomatik Hesaplamayı manuel yap
[COLOR="Red"]Application.ScreenUpdating = False[/COLOR] 'Ekran Gücenllemesi İptali

kodlar......


[COLOR="red"]Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic[/COLOR]

end sub

modulünü bu şekilde hazırlayıp çalıştır

 

[schahi]

Cengiz Bey,
Verdiğiniz kodlar yavaşlık problemini biraz olsun düzeltti.

İlginize teşekkür ederim.

 

[dEdE]

Merhaba,
Derdinize derman olmaz ama aşağıdaki kod satırı ilgili prosedürde gereksizdir.
Çünkü Devam: öncesinde GoTo ile atlama ve Application.EnableEvents = True öncesinde de False işlemi yoktur.

Devam: Application.EnableEvents = True