Öncelikle geç cevabım için kusura bakmayın. İş yerinde inanılmaz bir yoğunluğumuz vardı ve bu esnada bildirimde bulunamadım.
Konuyla ilgili olarak;
Sizin öneriniz olan,
MsgBox prompt:="Menşelerde BANGLADEŞ, KAMBOÇYA, ÇİN, ve HİNDİSTAN dışında ülkeler var!", Buttons:=vbCritical + vbOKOnly, Title:="Uyarı!"
Kod satırından sonra olacak şekilde
Exit Sub
yöntem bendeki sürekli olarak MsgBox alma sorununa çözüm oldu. Bunun için teşekkür ederim.
Ancak, diğer yandan benim yazdığım kod olan;
For i = 1 To ActiveSheet.Range("K2").End(xlDown).Row
If InStr(1, LCase(Range("K" & i)), "BANGLADESH") + _
InStr(1, LCase(Range("K" & i)), "CAMBODIA") + _
InStr(1, LCase(Range("K" & i)), "INDIA") + _
InStr(1, LCase(Range("K" & i)), "CHINA") > 0 Then
Else
MsgBox prompt:="Menşelerde BANGLADEŞ, KAMBOÇYA, ÇİN, ve HİNDİSTAN dışında ülkeler var!", Buttons:=vbCritical + vbOKOnly, Title:="Uyarı!"
End If
Next i
ve "x", "y", "z" substringleri HARİCİNDE bir değer varsa şunu yap, yok sadece bunlar varsa hiçbir şey yapma ve devam et amacını taşıyan kısım amacına uygun hareket etmiyor. Listedeki ülke isimlerinde bu ülkelerin haricinde olmamasına rağmen sanki varmış gibi MsgBox çıkarıyor. Acaba nerede yanlış yapıyorum?
İyi çalışmalar.
