Makro arasında alternatif bekleme kodu

[yNsr43]

Merhaba arkadaşlar makroların arasında 5 sn beklemek istiyorum bunun için Application.Wait (Now + TimeValue("00:00:05")) kullanıyorum ama bu beklerken komple exceli donduruyor. exceli dondurmadan bekleyen alternatif bir kod var mi acaba.
teşekkürler

 

[ÖmerFaruk]

Örnek olarak;
Boş bir Module aşağıdakileri kopyalayın.
Sayfa üzerindeki bir butonla da Module içindeki Makro1'i çalıştırın.

Sub Makro1()
    MsgBox "Makro 1 çalıştı"
    Application.OnTime Now + TimeValue("00:00:5"), "Makro2"
End Sub
Sub Makro2()
    MsgBox "Makro 2 çalıştı"
    Application.OnTime Now + TimeValue("00:00:5"), "Makro3"
End Sub
Sub Makro3()
    MsgBox "Makro 3 çalıştı"
End Sub

 

[veyselemre]

Aşağıdaki yöntemleri deneyin,

Sub test()
    Call test1
    Dim Check
    Check = Now + TimeValue("00:00:05")
    Do While Now <= Check
        DoEvents
    Loop
    Call test2
End Sub

Sub test_applicationOnTime()
    Call test1
    Dim Check
    Check = Now + TimeValue("00:00:05")
    Application.OnTime Check, "test2"
End Sub

 

[yNsr43]

test1 test2 nedir acaba ?

 

[yNsr43]

Aşağıdaki yöntemleri deneyin,

Sub test()
    Call test1
    Dim Check
    Check = Now + TimeValue("00:00:05")
    Do While Now <= Check
        DoEvents
    Loop
    Call test2
End Sub

Sub test_applicationOnTime()
    Call test1
    Dim Check
    Check = Now + TimeValue("00:00:05")
    Application.OnTime Check, "test2"
End Sub

teşekkürler hocam test1 test2 ne aacaba ?

 

[veyselemre]

Çalıştıracağınız makroların adları; siz kendi makrolarınızın adlarını yazın.

 

[yNsr43]

Çalıştıracağınız makroların adları; siz kendi makrolarınızın adlarını yazın.

Sub f4yap()
ilksatir = 16
Do While Cells(ilksatir, 25) <> ""
Cells(ilksatir, 25).Select
SendKeys "{F4}"
-- burada 5 sn beklesin istiyorum--
ilksatir = ilksatir + 1
Loop
End Sub

tekrar teşekkürler. 2 makrom yok 1 tane makronun içine yerleştirmek istiyorum kafam karıştı.

 

[yNsr43]

Çalıştıracağınız makroların adları; siz kendi makrolarınızın adlarını yazın.

Sub f4yap()
ilksatir = 16
Do While Cells(ilksatir, 25) <> ""
Cells(ilksatir, 25).Select
SendKeys "{F4}"
Check = Now + TimeValue("00:00:05")
Do While Now <= Check
DoEvents
Loop
MsgBox "ilki oldu"
ilksatir = ilksatir + 1
Loop
End Sub

şeklinde hallettim hocam teşkkürler.