Onu Örnek olarak vermiştim
Kısa işlemlerde sıkıntı çıkmıyor
Acaba 1.işlemi fonksiyon yazıp boolean olarak döndürsek
true ile dönünceye kadar 2.işlemi while döngüsü içinde bekletsek olur mu
Kod:
Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Error_GoTo
Dim PauseTime As Variant
Dim Start As Variant
Dim Elapsed As Variant
PauseTime = NumberOfSeconds
Start = Timer
Elapsed = 0
Do While Timer < Start + PauseTime
Elapsed = Elapsed + 1
If Timer = 0 Then
' Crossing midnight
PauseTime = PauseTime - Elapsed
Start = 0
Elapsed = 0
End If
DoEvents
Loop
Exit_GoTo:
On Error GoTo 0
Exit Function
Error_GoTo:
Debug.Print Err.Number, Err.Description, Erl
GoTo Exit_GoTo
End Function
Olabilir true olursa mesaj kutusuda çıkar istenirse mantıken.
Bunlar işe yarar mı bilmiyorum
İstediğim 1.işlemi gerekirse 3 gün beklemeli
PauseTime
Yukardakini nasıl belirleyeceksiniz pekii.