Soru Makroda salise ayarı

[nes432]

Merhaba, elimde bir makro kodu var kodu daha önce saniye olarak ayarlamıştım fakat saniye uzun sürüyor saliseye çevirmek istiyorum. Kod şu;


' 1 saniye bekle
Application.Wait (Now + TimeValue("00:00:01"))

Bunu şu şekilde ayarladığımda çalışmıyor

' 1 saniye bekle
Application.Wait (Now + TimeValue("00:00:00:45"))

Makroda salise ayarı olmayabilir mi yoksa farklı bir kod mu kullanmak gerekli bilgisi olan varsa yardımcı olabilirse çok sevinirim. Teşekkürler..

 

[veyselemre]

Application.Wait ile saniye altına işlem çalışmıyor gibi...

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
Sub test()
    Dim i
    Range("A1").Value = Now
    For i = 1 To 20
        Sleep 500
    Next i
    Range("A2").Value = Now
End Sub

 

[nes432]

Application.Wait ile saniye altına işlem çalışmıyor gibi...

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
Sub test()
    Dim i
    Range("A1").Value = Now
    For i = 1 To 20
        Sleep 500
    Next i
    Range("A2").Value = Now
End Sub

yanıt için teşekkür ederim bu kodu deneyeceğim.