DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Bu kodları olduğu gibi projenize ekleyiniz.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.
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