İki hücreyede veri girdiğimde kod çalışsın istiyorum.

[deleterx]

Merhaba ekteki basit bir örnekteki kodun Hem eksi (-) değer hemde banka adı girdiğinde çalışmasını istiyorum.
Yardımlarınız için şimdiden teşekkürler
http://s3.dosya.tc/server8/1f233g/islem1.rar.html

 

[Ömer BARAN]

Merhaba.

Yanlış anlamadıysam; mevcut kod'daki kırmızı satırdan önce mavi satırları eklerseniz istediğiniz gibi olur.
.

[COLOR="Blue"][FONT="Arial Narrow"]    If Target.Column = 3 And Cells(Target.Row, "D") = "" Then Exit Sub
    If Target.Column = 4 And Cells(Target.Row, "C") = "" Then Exit Sub[/COLOR]
[COLOR="Red"]    If Target.Column = 3 Or Target.Column = 4 Then[/FONT][/COLOR]

 

[deleterx]

Merhaba.

Yanlış anlamadıysam; mevcut kod'daki kırmızı satırdan önce mavi satırları eklerseniz istediğiniz gibi olur.
.

[COLOR="Blue"][FONT="Arial Narrow"]    If Target.Column = 3 And Cells(Target.Row, "D") = "" Then Exit Sub
    If Target.Column = 4 And Cells(Target.Row, "C") = "" Then Exit Sub[/COLOR]
[COLOR="Red"]    If Target.Column = 3 Or Target.Column = 4 Then[/FONT][/COLOR]

Benim istediğim banka ismi hem - değer hemde banka ismi yazdığımda çalışsın.Banka ismi harici bişey yazıp eksi değer yazarsam çalışmasın.

 

[Ömer BARAN]

Tekrar merhaba.

Önceki cevabımda belirttiğim mavi satırların altına, kırmızı satırdan önce aşağıdaki satırları da ekleyin.
.

[FONT="Arial Narrow"][COLOR="Blue"]    If Cells(Target.Row, 4) <> "Ziraat" And Cells(Target.Row, 4) <> "Garanti" _
         And Cells(Target.Row, 4) <> "İşBank" And Cells(Target.Row, 4) <> "Finansbank" Then Exit Sub[/COLOR][/FONT]

 

[deleterx]

Teşekkürler

Tekrar merhaba.

Önceki cevabımda belirttiğim mavi satırların altına, kırmızı satırdan önce aşağıdaki satırları da ekleyin.
.

[FONT="Arial Narrow"][COLOR="Blue"]    If Cells(Target.Row, 4) <> "Ziraat" And Cells(Target.Row, 4) <> "Garanti" _
         And Cells(Target.Row, 4) <> "İşBank" And Cells(Target.Row, 4) <> "Finansbank" Then Exit Sub[/COLOR][/FONT]

Ömer bey çok teşekkür ederim.
Saygılar