05/10/2016, 13:49
atoz112
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;
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.
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
Nextbu ş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.