Makro içinden çalışan makro içindeki kod ile ana makroyu nasıl sonlandırırım

[kykbt]

Arkadaşlar Merhaba;

Makro içinde sorgu ya göre çalıştırılan 12 adet makro var.
Ben bu alt makroların herhangi birindeki sorgu mesajında iptal dediğimde asıl ana makroyu sonlandırsın istiyorum.
Yani ilk ana makro kodunun sonuna gitsin, buraya kodu nasıl yönlendirebilirim.

Exit Sub dediğimde sadece o makroyu bitirip ikincisine gidiyor.

İkincil çalışan Makrodan (Kod,dan) alıntı;
Dim a
a = MsgBox("C Sutunu " & [c4].Value & " Aittir. Bu Sutun Bilgilerinin Yenilenmesini İstermisiniz? .", vbYesNoCancel, "Mesaj Kutsu")
If a = vbYes Then GoTo 10
If a = vbNo Then GoTo 20
If a = vbCancel Then GoTo son

Goto son ile ancak makronun kendinin sonuna yönlendirebiliyorum.
Benim istediğim asıl makronun sonuna gitmesi

 

[Kemal Demir]

Kodu görmeden birşey demek istemiyorum ama aşagıdaki kod sorununuzu bir nebze çözer kanısındayım.
Başka bir makroyu calistirarak sonlandırmayı denermısınız

If a = vbCancel Then 
call  Bitir
end if

Sub Bitir()
Exit Sub
End Sub

 

[kykbt]

Arkadaşım ilk mesaja dosya ekledim

 

[kykbt]

Arkadaşım ilk mesaja dosya ekledim
Bu şekilde sona gidemiyorum. Bu durumda ilk makro tekrar başlayıp döngüye girecek.

 

[Orion1]

End

 

[kykbt]

Yok yok bu kod çalışmaz.
Eevren hocam ne zamandır kök söküyorum.
Bu kod calışmaz çalışmamalı. Bu kadar basit olmamalı..

Bilmeyince...

Sağol hocam

 

[baydeniro]

Aslında çok sofistike bir kod gibi ama ben bu End kodunu nasıl kullanacağımı keşfeedemedim :yardim:

 

[Orion1]

End komutu ile proje sonlanır.

 

[baydeniro]

Sayın Evren Gizlen. linkteki dosyada bulunan zaman makrosu, dosyadan süre dolmadan çıkıldığında çalışmaya devam ediyor ve kapalı dosyayı açıyor.

http://www.excel.web.tr/f48/makroyu-durdur-makrosu-t68077.html