Timer Kodunda Süre Şartı

[hakki83]

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.

 

[veyselemre]

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]

Veysel Emre hocam olmuştur, sağ olunuz, emeğinize sağlık.