Çalışan tüm kodları sonlandırmak

[tamer42]

Merhabalar,

Sub Test
.............
[color=blue]Call  Ab[/color]
............
End sub

ile buradan Ab Makrosunu çalıştırıyoruz.

Sub Ab()
...............
if  ...........   then
[color=red]exit sub[/color]
end if
...............

End Sub

Ab Makrosu içerinde exit sub komutu ile sadece Ab Makrosundan çıkıyor.
Test Makrosu ise kaldığı yerden çalışmaya devam ediyor. Benim istediğim aynı anda Test Makrosundanda çıkmak için exit sub yerine nasıl bir kod yazmalıyım.

İyi Çalışmalar.

 

[uzmanamele]

merhaba

bunu deneyiniz.

sub falanca_sub()
...
...
exit sub
end
end sub

 

[tamer42]

Sn uzmanamele;

Sub Ab()
...............
if  ...........   then
[color=red]
    Exit Sub
     End
[/color]
end if
...............

End Sub

be şekilde denedim; olmuyor.
sadece bu makrodan çıkıyor, diğerlerine devam ediyor.

tüm kodlardan çıkmıyor.

 

[Necdet]

Merhaba,

Program çağırırken parametre kullanmak gerekir. Aşağıdaki kodları deneyiniz.

B prograında A sütunundaki değerlerin 1 olması varsayılmıştır. 1 değerinin dışındaki bir değer hata durumudur, kodlar buna göre kurgulanmıştır.

Option Explicit
Dim Durum As Boolean

Sub A()
Durum = True
B Durum '--- B Programı Çağrılır ---
If Durum = False Then
    MsgBox "B programında Sorun Oluştuğundan Diğer Programları Çalıştırmadan Çıkıyorum"
    Exit Sub
End If
C Durum '--- C Programı Çağrılır ---
MsgBox "Ana Programın Çalışması Bitmiştir..:"
End Sub

Sub B(Durum)
Dim i As Integer
For i = 1 To [A65536].End(3).Row
    If Cells(i, "A") <> 1 Then
        Durum = False
        Exit Sub
    End If
Next i
 
MsgBox "B programı sorunsuz çalışmıştır....."
End Sub

Sub C(Durum)
MsgBox "C programındayım"
End Sub