Belirli Sürede İşlem Durmassa Makroyu Durdurma

[askm]

Kolay gelsin.
Excel ile makro çalıştırıyorum. Bazen işlem çok uzun sürüyor. kod ile örneğin 1 dk de işlem bitmez ise makroyu durdurma yapabilir miyiz.
Teşekkürler.

 

[Mertsan]

Merhaba,
Makro çalışmaya devam ederken ALT+F11 yaparsanız makronun çalıştığı kod ekrana gelir. Bu sırada kodun üzerinde bulunan break(ara ver) ve reset(durdur) butonları ile durdurabilirsiniz. Break kodun belli bir yerinde devam etmenizi de sağlar, istediğiniz ikinci seçenek olacak.
kolay gelsin.

 

[askm]

İlginiz için teşekkürler. Benim istediğim 1 dakikalık bir zaman belirleyeceğim. Zaman geri saymaya başlayacak. Eğer Zaman 0 olursa makro duracak. Yani kod ile yapmak istiyorum.

 

[Asri]

Aşağıdaki kodu inceleyiniz.

Public Cancel As Boolean
Public downtime As Date

Sub Menu()
    Call geri_sayim_baslat
    Call deneme_dongu
End Sub

Sub deneme_dongu()
   For i = 1 To 1000000
     DoEvents
     zaman = Now + TimeValue("00:00:01")
   Next i
End Sub

Sub geri_sayim_baslat()
    '1 dakika ayarlandı.
    downtime = Now + TimeValue("00:01:00")
    Application.OnTime Earliesttime:=downtime, _
    procedure:="cikis", schedule:=True
End Sub

Sub cikis()
    End
End Sub

 

[askm]

Sayın Asri ilginiz için teşekkürler. Bu kodlarda benim kodları araya nasıl yedireceğim. Farklı 4 kod mevcut. Benim yaptığım işlem bazen sistemden dolayı gecikme oluyor. Bu gecikme çok uzun sürerse (Örneğin 1dk ) makro dursun istiyorum.

 

[Asri]

Sayın Asri ilginiz için teşekkürler. Bu kodlarda benim kodları araya nasıl yedireceğim. Farklı 4 kod mevcut. Benim yaptığım işlem bazen sistemden dolayı gecikme oluyor. Bu gecikme çok uzun sürerse (Örneğin 1dk ) makro dursun istiyorum.

Bu kodları olduğu gibi projenize ekleyiniz.

Projenizin ilk adımına aşağıdaki şekilde ekleyiniz. Program çalışmaya başladıktan 1 dk sonra sona erecektir.

call geri_sayim_baslat

Public Cancel As Boolean 
Public downtime As Date  

Sub geri_sayim_baslat()     
  '1 dakika ayarlandı.     
  downtime = Now + TimeValue("00:01:00")     
  Application.OnTime Earliesttime:=downtime, procedure:="cikis", schedule:=True 
End Sub  

Sub cikis()     
   End 
End Sub

 

[askm]

Asri Bey çok teşekkür ederim. Allah razı olsun.