Do Loop Döngüsü Durdur, Başlat

[ridvan2111]

Merhaba,
Do Loop Döngüsünü Nasıl durdurabilirim?

Private Sub CommandButton1_Click()
Exit Do  Durdur
kodlar
---
---
----
-----
Do Lop Başlat
End Sub

Private Sub CommandButton2_Click()
Do
DoEvents

    TextBox33.Value = Now
    TextBox33.Value = Format(Now, "dd.mm.yyyy")
   
    TextBox36.Value = Now
    TextBox36.Value = Format(Now, "hh:mm:ss")
    
    TextBox35.Value = Now
    TextBox35.Value = Format(Now, "dddd")
    
Loop
End Sub

 

[ExcelF1]

Araya bir şart koyun. Gerçekleşiyorsa ya döngüyü durdur deyin, yada döngü dışına gönderin.

 

[ridvan2111]

Araya bir şart koyun. Gerçekleşiyorsa ya döngüyü durdur deyin, yada döngü dışına gönderin.

Private Sub TextBox41_Change()
If TextBox41.Text = "" Then

Do
DoEvents

    TextBox33.Value = Now
    TextBox33.Value = Format(Now, "dd.mm.yyyy")
    TextBox36.Value = Now
    TextBox36.Value = Format(Now, "hh:mm:ss")
    
    TextBox35.Value = Now
    TextBox35.Value = Format(Now, "dddd")
    
Loop

   
   Else
   Exit Do
   End If

End Sub

Bu şekilde olmadı Doğrusu nasıl yazılır?

 

[Korhan Ayhan]

Merhaba,

Koşulunuzu Do-Loop arasına alın.

Do
   If Koşulum Oluştuysa Exit Do
   ......
   ......
   ......
Loop