Else If ile 3 kez msgBox kullanabilirmiyim.

[kelkitli]

Değerli Dostlar Selamlar,
Şu şekilde bir kod kullanıyorum.

Private Sub CommandButton5_Click()
If Range("c1") > "0" Then
kart
ElseIf Range("c1") = "" Then
MsgBox "WEBDEN BİLGİLERİ ALINIZ"
End If
End Sub

Ben istiyorum ki

Private Sub CommandButton5_Click()
If Range("c1") > "0" or Range("f15") = "Kart verilebilir" or Range("f16") = "Ankarada İkamet ediyor"Then
kart
ElseIf Range("c1") = "" Then
MsgBox "WEBDEN BİLGİLERİ ALINIZ"
2. seçenek F15 "Kart verilemez" ise
MsgBox"Yaşı dolmadığından kayıt yapılmadı"
3. seçenek F16 "Ankarada İkamet etmiyor" ise
MsgBox"İkameti Faklı olduğundan kayıt yapılmadı"
End If
End Sub

işlem yapayım.

 

[Orion1]

2nci ve 3ncü seçenekleri en başa koyunuz.

 

[kelkitli]

Sayın Hocam cevabınız için teşekkür ederim.
Else If diyemi kullanmalıyım.

 

[Orion1]

Sayın Hocam cevabınız için teşekkür ederim.
Else If diyemi kullanmalıyım.

Evet elseif deyimini kullanmalısınız.

 

[kelkitli]

Teşekkür ederim Sayın Evren Hocam,

Private Sub CommandButton5_Click()
If Range("c1") > "0" And Range("f15") = "Kart verilebilir" And Range("f16") = "Ankarada İkamet ediyor" Then
kart
ElseIf Range("f15") = "KART VERİLEMEZ" Then
MsgBox "YAŞI YETERSİZ OLDUĞUNDAN KAYIT YAILMADI "
ElseIf Range("f16") = "ANKARADA İKAMET ETMİYOR" Then
MsgBox "ANKARA'DA İKÂMET ETMEDİĞİNDEN KAYIT YAILMADI"
ElseIf Range("c1") = "" Then
MsgBox "WEBDEN BİLGİLERİ ALINIZ"
End If
End Sub

 

[kelkitli]

Değerli Dostlar Selamlar,

Private Sub CommandButton5_Click()
On Error Resume Next
If Range("c1") > "0" And Range("f15") = "KART VERİLEBİLİR" And Range("f16") = "ANKARA" Then
kart
ElseIf Range("f15") = "KART VERİLEMEZ" Then
MsgBox "YAŞI YETERSİZ OLDUĞUNDAN KAYIT YAPILMADI "
WebBrowser1.Document.forms(0).Elements(1).Click
[C1:C26]=""
ElseIf Range("f16") = "ANKARADA İKAMET ETMİYOR" Then
MsgBox "ANKARA'DA İKÂMET ETMEDİĞİNDEN KAYIT YAPILMADI"
WebBrowser1.Document.forms(0).Elements(1).Click
[C1:C26]=""
ElseIf Range("c1") = "" Then
MsgBox "WEBDEN BİLGİLERİ ALINIZ"
WebBrowser1.Document.forms(0).Elements(1).Click
[C1:C26]=""
End If
End Sub

Yukarıdaki makroda ElseIf içerisinde uygulanan 3 seçenekte
WebBrowser1.Document.forms(0).Elements(1).Click
[C1:C26]=""
her seçenekten sonra yazılmalı. Ancak 1. seçenekteki şart gerçekleşirse bu kod çalışsın değilse 2. seçenek devreye girsin. 2.seçenekteki şart sağlanırse çalışsın değilse 3. seçeneği beklesin.

 

[kelkitli]

Yani MsgBox çalışınca
WebBrowser1.Document.forms(0).Elements(1).Click
[C1:C26]=""
bu işlemi de yapsın değilse sonraki seçeneğe geçsin.

 

[kelkitli]

Değerli Dostlar şu şekilde bir çözüm ürettim ama eksik oldu.

Private Sub CommandButton5_Click()
On Error Resume Next
If Range("c1") > "0" And Range("f15") = "KART VERİLEBİLİR" And Range("f16") = "ANKARA" Then
kart
ElseIf Range("f15") = "KART VERİLEMEZ" Then
MsgBox "YAŞI YETERSİZ OLDUĞUNDAN KAYIT YAPILMADI ", WebBrowser1.Document.forms(0).Elements(1).Click
ElseIf Range("f16") = "TAŞRA" Then
MsgBox "ANKARA'DA İKÂMET ETMEDİĞİNDEN KAYIT YAPILMADI", WebBrowser1.Document.forms(0).Elements(1).Click
ElseIf Range("c1") = "" Then
MsgBox "WEBDEN BİLGİLERİ ALINIZ",WebBrowser1.Document.forms(0).Elements(1).Click
End If
End Sub

Şu kısmı bir türlü ekleyemedim.[C1:C26]=""

 

[kelkitli]

Değerli Dostlar,
Sanıyorum benim talep ettiğim yazım şekli kod yazma işlemi içerisinde mümkün değil. Olsaydı cevap olurdu. Hani ben makrolar dağınık olmasın düşüncesiyle. Böyle olmayınca ben de Then deyiminden sonra ikinci bir makro kullandım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

.....
ElseIf Range("f15") = "KART VERİLEMEZ" Then
[COLOR=red]WebBrowser1.Document.forms(0).Elements(1).Click[/COLOR]
[COLOR=red][C1:C26]=""[/COLOR]
MsgBox "YAŞI YETERSİZ OLDUĞUNDAN KAYIT YAPILMADI "
.....

 

[kelkitli]

Korhan Hocam çok teşekkür ederim. Nasıl düşünmedim bilemiyorum. Halbuki çok uğraştım yapmak için. Bir kaç kez buna yakın düşündüklerim oldu.
İşyerine varınca deneyip geri döneceğim. Sağolun, Varolun Sayın Hocam.