Şarta Bağlı Başka Makro Çalıştırma

Sorunuzu tam olarak anlamamış olabilirim.
Sanırım amacınız EVET denilse bile B18 0 ise işlem yapılmaması.

Eğer öyleyse ilgili kod satırını If Cevap = vbYes And Sheets("SONUÇ").Range("B18") > 0 Then şeklinde değiştirmeniz yeterli olur.

Ömer Bey,
Önceki dosya hatalı olmuş. Dosyayı yeniledim.
Dosyada şekille daha iyi ifade ettim konuyu.

Makro şöyle ilerlemeli:

İlk MsgBox EVET
>>>>>>>>>>>>>İkinci MsgBox
>>>>>>>>>>>>>>>>>>>>>>>>İkinci MsgBox Evet ise xxx
>>>>>>>>>>>>>>>>>>>>>>>>İkinci MsgBox Hayır ise yyy
İlk MsgBox HAYIR
>>>>>>>>>>>>> zzzzz

Sayın Ömer BARAN,

İlk iki satırı değiştirdim. Bir sorun kaldı.
cvp2 kısmındaki Cancel tuşu Exit Sub yapmıyor. Aşağıdaki mesajı gösteriyor.
Bunu nasıl düzeltmem gerekir.

Bilgisayarda deıilim.
cvp2 ye ait Else kısmını, Elseif cvp2 = vbNo Then olarak değiştirip, altına da Else ekleyin. Bu son Else kısmı Cancel işlemini karşılık gelir.

Sorun çözülmüştür Ömer Bey.
Teşekkürler.