E

Çözüldü Evet hayır makrosuna ek yapılması hakkında

  • Konuyu başlatan Konuyu başlatan ErolU
  • Başlangıç tarihi Başlangıç tarihi
E

ErolU

Normal Üye
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?
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
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.
 
Oyla 1 Olumsuz oyla
Ö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
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Sayın Ömer BARAN,
Kod: 
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.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(2 satır)
Bunu nasıl düzeltmem gerekir.
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 1 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst