Timer Kodunda Süre Şartı

hakki83

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
Merhaba

Müşteri bayii veya şirketlere dosya gönderdiğimde, kodlara Timer kodunu ekliyorum.

Şöyle bir düzenleme yapılabilir mi acaba

İşlem süresi
2 saniyeden uzun sürerse Timer penceresi çıksın,
2 saniyeden kısa sürerse Timer penceresi çıkmasın.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub Düğme1_Tıkla()
    Dim zaman As double
    zaman = Timer

    [A2:A700000] = "A DENEME"
    [B2:B700000] = "B DENEME"
    [C2:C700000] = "C DENEME"
    [D2:D700000] = "D DENEME"
    
    zaman = Timer - zaman
    If zaman > 2 Then MsgBox "" & "İşlem süresi = " & Format(zaman, "0.0") & " Saniye"
End Sub
 

hakki83

Altın Üye
Katılım
30 Eylül 2021
Mesajlar
546
Excel Vers. ve Dili
Excel 2016 Türkçe 32 Bit
Altın Üyelik Bitiş Tarihi
30-09-2026
Veysel Emre hocam olmuştur, sağ olunuz, emeğinize sağlık.
 
Üst