Sayın atoz112;

Cevabınız için teşekkür ederim. Yalnız, cahilliğimin kusura bakmayın ama ben bir noktayı anlayamadım. Aşağıdaki kod öbeğine baktığımızda;

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

Benim düşük düzeydeki kod bilgime göre K2 sütunun da BANGLADESH, CAMBODIA, INDIA ya da CHINA değerlerinden biri ya da birkaçı ya da tamamı varsa bir şey yapma, eğer bunlardan farklı bir değer varsa MsgBox görüntüle yazıyor olması lazım. Ya da en azından ben böyle olmasını istiyorum.

Siz sahip olduğunuz bilginizle beni aydınlatabilir misiniz? Ben bu ihtiyacım için yanlış kod öbeğini mi kullanıyorum acaba? Ya da doğrusu nedir?

Bu arada emeğinize sağlık, örnek Excel eklemişsiniz fakat işyerimdeki firewall dosyayı indirmemi engelliyor. Eve gittiğimde deneyeceğim maalesef.

İyi çalışmalar.