Makro çalışırken zamanlama

[rain2003]

Aşağıdaki kodlarla bir çok iş yaptırıyorum excelde . Fakat yapacağı zaman geldimi görevleri sanki bir insan yapıyormuş gibi sayfa göz kırpıyor gidip geliyor. Bu işlemlerin kullanıcıyı etkilememesi için yapılabilecek bir şeyler varmı.


Sub zamanlama()
DoEvents
Application.OnTime Now + TimeValue("00:00:15"), "saniye"
End Sub

Sub saniye()
If Sayfa1.Cells(2, "j") = 1 Then
GoTo atla1
End If
If Sayfa1.Cells(2, "ı") = 0 Then
kl2
Sayfa1.Cells(2, "j") = 1
End If
atla1:
If Sayfa1.Cells(2, "ı") = 1 Then
Sayfa1.Cells(2, "j") = 0
End If
kl1
If Sayfa3.ComboBox1.Value = "Sayfa2" Then
Sayfa3.[k17:t26].ClearContents
Sayfa2.[a7:j16].Copy: Sayfa3.[k17].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If

sonL = Sayfa2.Cells(Rows.Count, "L").End(3).Row
sonA = Sayfa2.Cells(Rows.Count, "t").End(3).Row

For i = 9 To sonA
Sayfa2.Cells(i, "u") = WorksheetFunction.CountIf(Range("L25:L" & sonL), Sayfa2.Cells(i, "A"))
Sayfa2.Cells(i, "w") = WorksheetFunction.SumIf(Range("L25:L" & sonL), Sayfa2.Cells(i, "A"), Range("m25:m" & sonL))
Next




End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod satırlarını kodlarınıza ekleyince isteğinizin gerçekleşmesi lazım.
.

[FONT="Arial Narrow"][I]......kod başlangıcı.....[/I]
Application.ScreenUpdating = [COLOR="Red"]False[/COLOR]: Application.Calculation = xlCalculation[COLOR="red"]Manual[/COLOR]
[I].................................
....... çalışacak kodlar ......
.................................[/I]
Application.ScreenUpdating = [COLOR="Blue"]True[/COLOR]: Application.Calculation = xlCalculation[COLOR="blue"]Automatic[/COLOR]
[I].....kodların bitişi......[/I][/FONT]

 

[rain2003]

Bu komutlar makroların çalışmasını ciddi ölçüde bozuyor.
Başka seçenek yok galiba.

 

[Ömer BARAN]

Örnek belge üzerinden gitmek lazım demekki.
Bir de Calculation kısımlarını silerek deneyin bakalım.