Evet hayır makrosuna ek yapılması hakkında

[ErolU]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Arkadaşlar eklediğim dosyada şarta bağlı olarak evet hayır butonlarına tıklayarak ilerleyen hazır bir makrom var.
Buna bir şart daha eklemek istiyorum.
Şart içinde şart anlamında bir ek.
Konuyla ilgili yardımcı olur musunuz?

 

Dosya salt okunursa makro çalışmasın

Kod Çalışırken Ekranda Uyarı Gösterme

[Ömer BARAN]

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.

 

[ErolU]

Ö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

 

[Ömer BARAN]

İstediğiniz böyle mi acaba?

Görüntülemek için giriş yapmanız gerekmektedir.
(25 satır)

 

[ErolU]

Sayın Ömer BARAN,

Görüntülemek için giriş yapmanız gerekmektedir.
(25 satır)

İ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.

Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)

Bunu nasıl düzeltmem gerekir.

 

[Ömer BARAN]

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.

 

[ErolU]

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