Uzun Süren İşlemlerde Kodların Birbirini Beklemesi

(05/02/2020, 12:50)accessman yazdı: bu son mesajı niye böyle yazdı acaba site de hata mı var

Sitede hata yok, siz ne yazdıysanız onu gösterir. Yazılan kodda, biri bitmeden diğeri başlamaz. Excelden veri al kodu eklediyseniz o kod çalışır, sonra diğer koda geçer. Konuda 7. sayfaya gelindi hala hangi kodun bekleyeceğine dair bir örneğiniz yok.

Dim bitti As Boolean

Private Sub CloseBtn_Click()
    Dim bittimi As Boolean
    bittimi = first
End Sub

Private Sub Komut381_Click()
    WasteTime
End Sub

Function first() As Boolean
    bitti = False
    Dim i, ii, iii As Integer
   
    For i = 1 To 100
        For ii = 1 To 10
            For iii = 1 To 10
            DoEvents
            Next
        Next
    Next
    bitti = True
End Function

Sub WasteTime()
    Do
        DoEvents
    Loop Until bitti = True
    MsgBox "merhaba"
End Sub

bu kodlarda CloseBtn_Click ile döngü başlatılıyor
Komut381_Click ile mesaj çağırılıyor
mesaj çıkmadan önce sürekli 
bitti = true 
kontrol etmesini istiyorum

(05/02/2020, 15:19)accessman yazdı: Dim bitti As Boolean

Private Sub CloseBtn_Click()
    Dim bittimi As Boolean
    bittimi = first
End Sub

Private Sub Komut381_Click()
    WasteTime
End Sub

Function first() As Boolean
    bitti = False
    Dim i, ii, iii As Integer
   
    For i = 1 To 100
        For ii = 1 To 10
            For iii = 1 To 10
            DoEvents
            Next
        Next
    Next
    bitti = True
End Function

Sub WasteTime()
    Do
        DoEvents
    Loop Until bitti = True
    MsgBox "merhaba"
End Sub

Hani döngü yoktu sorgu vardı!!!!!

Sayın @accessman, örnek uygulamanızı ekleyin. "şu işlemi yapınca şu kodu beklemeden şu koda geçiyor" şeklinde ayrıntılı açıklama yazın. İnceleyip çözüm bulmaya çalışalım. Yoksa boolean, for next, hepsi farazi kalacak.