Sayın balkan85,

Aşağıdaki açıklamaların yapılması uygun görülmüştür.

Konunuzun 5.mesajında eklenen örnek uygulamayı sonraki zaman sürecinde incelediğinizde ve çalıştırdığınızda da görüleceği üzere,mevcut kodlar;

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



Dim renklendir As Integer

Dim rng As Range

Dim hucrealani As Variant

Dim satirsirasi As Long

Dim hucresatir





satirsirasi = Cells(Rows.Count, "A").End(xlUp).Row



Set rng = Range("A1:A" & satirsirasi)

renklendir = xlThemeColorAccent2



For Each hucrealani In rng.Cells

    hucresatir = hucrealani.Row

    If InStr(hucrealani.Value, "BANGLADESH") = 1 Or InStr(hucrealani.Value, "CAMBODIA") = 1 Or InStr(hucrealani.Value, "INDIA") = 1 Or InStr(hucrealani.Value, "CHINA") = 1 Then

        hucrealani.Interior.ColorIndex = renklendir

        

        'ATOZ112

        'EĞER DEĞER VARSA,YAPILMASINI İSTEDİĞİNİZ İŞLEMLERİ YAZINIZ...



    Else

        hucrealani.Interior.Pattern = xlNone

        MsgBox prompt:="Menşelerde BANGLADEŞ, KAMBOÇYA, ÇİN, ve HİNDİSTAN dışında ülkeler var!", Buttons:=vbCritical + vbOKOnly, Title:="Uyarı!"

        Exit Sub

    End If

Next

bu şekilde oluşturulmuştur.kodlarda işleyişin yorumu ise;
eğer BANGLADEŞ, KAMBOÇYA, ÇİN, ve HİNDİSTAN ifadelerinden herhangi biri mevcutsa,bunların dışında da harici başka ifadeler de yer alıyorsa,kontroller neticesinde,her hangi bir işlem yapmamakta ve eğer aksi durum ise,sizin istediğiniz işlemler ne ise onların yapılması sağlamakta.

Kaldı ki,sizin de talebiniz bu yönde zaten.

Uygulama çalıştırıldığında elde edilen sonuçları içeren ekran görüntüleri de bunlardır.






Bilginize…iyi çalışmalar,saygılar.

Sayın atoz112,

Öneriniz için çok teşekkür ederim. Konuyu çözüldü olarak işaretleyebilirsiniz.

İyi çalışmalar.