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
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