Excel'de birden çok kelimeyi aynı anda arama ve renklendirme

[webliko]

Merhaba
İlk olarak şimdiden yardımlarınız için teşekkür ederim.

Aşağıda bulunan görseldeki gibi "A" sutunlarında veriler mevcut "D" sutunlarında da kelimeler mevcut. "D" sutunlarında ekli olan kelimelerden biri "A" stunlarından birinde geçiyorsa geçen sutunun görseldeki gibi renklendirilmesini istiyorum. Bunu nasıl gerçekleştirebiliriz. Webde araştırdım ama verilen formullerle ne yazık ki sonuca ulaşamadım.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Option Compare Text
Sub kod()
Range("A:A").Interior.ColorIndex = xlNone
sozluk = Range(Cells(2, "D"), Cells(Rows.Count, "D").End(3))
For a = 2 To Cells(Rows.Count, "A").End(3).Row
    For Each soz In sozluk
        If InStr(1, Cells(a, "A"), soz) > 0 Then
            Cells(a, "A").Interior.Color = vbBlue
            Exit For
        End If
    Next
Next
End Sub

 

[çıtır]

Koşullu biçimlendirme ile çözümlenmiş dosyanız.

 

[webliko]

Hocam çok teşekkür ederim. Çok işime yaradı. Saygılar.

 

[çıtır]

Hocam çok teşekkür ederim. Çok işime yaradı. Saygılar.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[tyapis]

Merhaba dosya linkini yeniden yükleyebilir misiniz? Sanırım şu an ki linkte sorun var.

 

[Tevfik_Kursun]

Merhaba Sayın Çıtır,
Yaptığınız gayet güzel çalışıyor. Kendi yaptığıma uyarladım, bir yerde hata yaptım sanırım. Kontrol eder misiniz lütfen?
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Sayın ÖmerBey,
Emeğinize sağlık, teşekkür ederim.
Saygılarımla

 

[çıtır]

Sayın Tevfik_Kursun
Diğer dosyadaki formül bir aralıkdaki birden çok kelimenin aranması ve renklendirilmesi içindir.Formülünüzdeki BD11:BD11 bir aralık değil BD11 hücresidir.Tek hücrede ise formülünüzü aşağıdaki formül ile değiştirin işlemi gerçekleştireçekdir.

=ESAYIYSA(MBUL($BD$11;$AV11))

 

[Tevfik_Kursun]

İlginize çok teşekkür ederim Sayın Çıtır,
Saygılarımla

 

[çıtır]

İlginize çok teşekkür ederim Sayın Çıtır,
Saygılarımla

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[Utekiner]

Merhaba,
Aşağıdaki kodları deneyiniz.

Option Compare Text
Sub kod()
Range("A:A").Interior.ColorIndex = xlNone
sozluk = Range(Cells(2, "D"), Cells(Rows.Count, "D").End(3))
For a = 2 To Cells(Rows.Count, "A").End(3).Row
    For Each soz In sozluk
        If InStr(1, Cells(a, "A"), soz) > 0 Then
            Cells(a, "A").Interior.Color = vbBlue
            Exit For
        End If
    Next
Next
End Sub

Merhaba Ömer Bey,

Renk koyu açık olması için kodda nereleri revize etmek gerekir.

 

[çıtır]

Renkli yazdığım alanı değiştirerek İstediğiniz bir renk belirleyiniz.
Cells(a, "A").Interior.Color = vbBlue

 

[Utekiner]

@çıtır Bey ilginiz ve cevabınız için çok teşekkür ederim. İyi Çalışmalar.

 

[çıtır]

@çıtır Bey ilginiz ve cevabınız için çok teşekkür ederim. İyi Çalışmalar.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.